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Computer-Based  Testing  Assessing  Recognition  Skills 
Computer-Based  Game  Testing  Software  Tools 


'This  report  documents  a  computer-based  gaming  system  for  assessing  recog¬ 
nition  performance  (RECOG).  This  was  done  so  that  others  who  may  want  to  use 
it  f6r  either  research,  development,  or  operational  implementation  will  have  an 
easier  time  comprehending  the  modularity  of  the  programming  structure  as  well 
as  how  specific  procedures  can  be  adapted  to  suit  a  user's  unique  situation.  The 
game  management  system  is  programmed  in  a  modular  manner  to:  instruct  the 
student  on  how  to  play  the  game,  retrieve  and  display  individual  images,  keep 
track  of  how  well  individuals  play  and  provide  them  feedback,  and  link  these 
components  by  supervising  routines  inorder  to  execute  the  game.  This  modularity  > 
in  programming,  together  with  the  game  management  system’s  independence  of 
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Abstract  continued 


any  graphic  database  (e.g.,  aircraft  or  ship  silhouettes,  human  anatomy,  topogra¬ 
phy,  electronic  circuits),  contributes  to  its  generalizability.  '''The  game,  then,  pro¬ 
vides  a  set  of  software  tools  which  can  be  used  by  others  who  want  to  assess 
recognition  performance. 

The  software  for  the  complete  gaming  system  is  currently  on  three  floppy 
disks  which  control  the  play  of  the  game,  contain  the  graphic- images  database, 
and  maintain  records  of  individuals'  recognition  performances.  The  game  itself  is 
run  with  two  dual-density  disks  on  the  Terak  microcomputer  employing  two 
drives.)  It  is  implemented  on  the  UCSD  P-System  and  written  in  UCSD  PASCAL. 
The  disk  placed  in  drive  0,  i.e.,  the  8510  or  volume  4,  holds  the  actual  game  code; 
the  disk  placed  in  drive  1,  i.e.,  the  8515  or  volume  5,  contains  the  independent 
graphic-images  database.  As  soon  as  the  system  is  booted,  control  is  immediately 
passed  to  the  game.  Consequently,  naive  users  need  not  deal  with  the  nuances  of 
the  UCSD  P-System.  Recognition-performance  data  are  saved  for  a  number  of 
individual  players  on  the  8510  disk  "drived  A  third  disk  containing  game  manage¬ 
ment  facilities  can  be  used  by  test  administrators  or  researchers  to  format  the 
recognition  data  to  facilitate  statistical  analyses.  Also,  this  third  disk  can  be  used 
to  design  a  new  game  with  a  completely  different  set  of  g:.' ■*hic  images  to  act  as 
stimuli  for  recognition  testing. ^ 
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FOREWORD 

This  programming  effort  was  performed  under  exploratory  development 
work  unit  RF63-522-801-013-03.04  (Testing  Strategies  for  Operational 
Computer-Based  Training)  sponsored  by  the  Chief  of  Naval  Material  (Office  of 
Naval  Technology).  The  objective  of  this  work  unit  is  to  develop  and  evaluate 
microoomputer-based  graphic  simulations  of  operationally  oriented  tasks  to  deter¬ 
mine  if  they  result  in  better  assessment  of  student  performance  than  more  cus¬ 
tomary  measurement  methods. 

This  program  documentation  is  primarily  intended  for  the  Department  of 
Defense  training  and  testing  research  and  development  community. 
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SUMMARY 


Background  and  Problem 

The  general  goal  of  this  exploratory  development  is  to  create  and  evaluate 
microcomputer-based  graphic  simulations  of  operationally  oriented  tasks  to  ascer¬ 
tain  if  they  result  in  improved  assessment  of  student  performance  when  compared 
to  more  customary  measurement  methods.  As  a  test  bed,  graphic  modeb  have 
been  programmed  to  assess  how  well  F-14  Pilots  and  Radar  Intercept  Officers 
(RIOs)  recognize  front-line  Soviet  and  non-Soviet  fighters  and  bombers. 

A  computer  game  based  upon  a  sequential  recognition  paradigm  has  been 
designed  and  developed.  It  randomly  selects  and  presents  on  the  display  of  a 
microcomputer  with  millisecond  speed  either  the  front,  side,  or  top  views  of  four 
Russian  bombers  and  ten  of  their  advanced  fighters.  Also,  the  game  management 
system  can  choose  and  flash  corresponding  silhouettes  of  NATO  aircraft  which 
act  as  distractors  for  their  Soviet  counterparts  because  of  the  high  degree  of  simi¬ 
larity  between  them  which  could  easily  confuse  U.S.  air  crews. 

This  game,  which  is  called  FLASH  IVAN  (aircraft  images  are  "flashed"  on 
the  computer  display,  and  the  F-14  community  refers  to  the  Russians  genetically 
as  "Ivan”),  assesses  student  performance  by  measuring  the  number  of  correct 
recognitions  out  of  a  total  of  forty-two  silhouettes  (half  Soviet  and  the  other  half 
non-Soviet),  the  time  it  takes  a  student  (latency)  to  make  a  recognition  judgment 
for  each  target  or  distractor  aircraft,  and  the  degree  of  confidence  the  student  has 
in  each  of  his/her  recognition  decisions.  At  the  end  of  the  game  feedback  is  given 
to  the  student  concerning  his  percentage  of  correct  recognitions,  average  response 
latency,  average  degree  of  confidence  in  the  recognition  judgments,  and  how  his 
performance  compares  to  other  students  who  have  played  the  game. 

A  file  is  maintained  and  available  to  the  instructors  which  provides,  in  addi¬ 
tion  to  these  parameters  for  each  student,  recognition  performance  across  aircraft 
for  all  students  who  played  the  game.  This  provides  diagnostic  assessments  to 
instructors  who  can  use  this  information  to  focus  student  attention  on  learning 
the  salient  distinctive  features  of  certain  aircraft  in  order  to  improve  their  recog¬ 
nition  performance. 

The  software  for  the  complete  gaming  system  is  currently  on  three  floppy 
disks  which  control  the  play  of  the  game,  contain  the  graphic-images  database, 
and  maintain  records  of  individuals’  recognition  performances.  The  game  itself  is 
run  with  two  dual-density  disks  on  the  Terak  microcomputer  employing  two 
drives.  It  is  implemented  on  the  UCSD  P-System  and  written  in  UCSD  PASCAL. 
The  disk  placed  in  drive  0,  i.e.,  the  8510  or  volume  4,  holds  the  actual  game  code; 
the  disk  placed  in  drive  1,  i.e.,  the  8515  or  volume  5,  contains  the  independent 
graphic-images  database.  As  soon  as  the  system  is  booted,  control  is  immediately 
passed  to  the  game.  Consequently,  naive  users  need  not  deal  with  the  nuances  of 
the  UCSD  P-System.  Recognition-performance  data  are  saved  for  a  number  of 
individual  players  on  the  8510  disk  drive.  A  third  diskette  containing  game 
management  facilities  can  be  used  by  test  administrators  or  researchers  to  for¬ 
mat  the  recognition  data  to  facilitate  statistical  analyses.  Also,  this  third  diskette 
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can  be  used  to  design  a  new  game  with  a  completely  different  set  of  graphic 
images  to  act  as  stimuli  for  recognition  testing. 


Objective 

The  objective  of  this  report  is  to  document  the  program  underlying  the 
computer-based  gaming  system.  This  was  done  so  that  others  who  may  want  to 
use  this  set  of  software  tools  for  either  research,  development,  or  operational 
implementation  will  have  an  easier  time  comprehending  the  modularity  of  the 
programming  structure  as  well  as  how  specific  procedures  can  be  adapted  to  suit 
a  user's  unique  situation. 


Utility  Functions 

This  section  of  the  documentation  describes  how  to  create  new  recognition 
games  which  would  employ  as  subject-matter  databases  graphic  images  other 
than  aircraft  silhouettes  currently  used  by  Flash  Ivan.  It  also  explains  how  to 
extract  statistical  data  for  sample  of  subjects  from  records  of  recognition  perfor¬ 
mances. 


Programmer’s  Notes 

This  portion  of  the  documentation  serves  as  a  technical  reference  for  pro¬ 
grammers  who  may  want  to  make  slight  modifications  to  the  game  code  itself 
which  is  independent  of  the  database.  It  deals  with  several  files  and  describes  pro¬ 
cedures  which  would  be  involved  in  performing  these  changes. 


Program  Maintenance 

The  final  segment  of  the  documentation  explains  how  to  maintain  the  pro¬ 
gram,  the  organization  and  the  handling  of  the  three  disks  that  are  used,  and 
what  to  do  to  the  disks  before  and  after  collecting  recognition-performance  data. 
A  listing  of  the  program  is  presented  in  Appendix  A. 
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INTRODUCTION 


Background  and  Problem: 

Many  student  assessment  procedures  which  are  currently  used  In  Navy  train¬ 
ing  are  not  adequately  accurate  or  consistent.  This  sometimes  results  in  over¬ 
training  which  increases  costs  needlessly,  or  undertraining  which  culminates  in 
unqualified  graduates  being  sent  to  the  fleets. 

Typical  procedures  for  assessing  performance  do  not  adequately  measure 
with  sufficient  fidelity,  validity,  and  reliability  real-world  operationally  oriented 
job-sample  tasks.  Consequently,  student  evaluation  at  its  best  is  somewhat 
suspect,  and  decisions  based  upon  this  kind  of  assessment  may  be  erroneous. 

Better  testing  techniques  are  needed  for  assessing  Navy  trainees  against  per¬ 
formance  standards  employing  tasks  functionally  similar  to  those  encountered  in 
operational  contexts.  One  attempt  to  fulfill  this  requirement  involves  the  use  of 
microcomputer  technology  which  is  rapidly  appearing  in  a  number  of  Navy  train¬ 
ing  and  testing  environments. 

There  is,  however,  no  suitable  knowledge  base  which  can  be  tapped  by  the 
Navy  (or  others)  for  developing,  evaluating,  selecting,  and  using  computer-based 
testing  strategies  incorporating  graphic  representations  of  job-sample  tasks. 

Many  of  these  customary  methods  for  measuring  performance  either  on  the 
job  or  in  the  classroom  involve  nstruments  which  are  primarily  paper-and-pencil 
in  nature,  e.g.,  check  lis  ,  rating  scales,  critical  incidences;  and  multiple-choice, 
completion,  true-false,  and  matching  formats. 

A  number  of  deficiencies  exist  with  these  traditional  testing  techniques,  e.g.: 
(a)  biased  items  are  generated  by  different  individuals,  (b)  item  writing  pro¬ 
cedures  are  usually  obscure,  (c)  there  is  a  lack  of  objective  standards  for  produc¬ 
ing  tests,  (d)  item  content  is  not  typically  sampled  in  a  systematic  manner,  and 
(e)  there  is  usually  a  poor  relationship  between  what  is  taught  and  test  content. 

What  is  required  is  a  theoretically  and  empirically  grounded  technology  of 
producing  procedures  for  testing  which  will  correct  these  faults.  Very  few  data 
are  presently  available  regarding  the  psychometric  properties  of  testing  strategies 
using  microcomputer-based  graphically  represented  simulations,  models,  or  meta¬ 
phors.  Technical  information  is  needed  concerning  the  accuracy,  consistency,  sen¬ 
sitivity,  and  fidelity  of  these  computer-based  assessment  schemes  compared  to 
more  traditional  testing  techniques. 

The  objective  of  this  exploratory  development  is  to  develop  and  evaluate 
microcomputer-based  graphic  representations  of  operationally  oriented  tasks  to 
determine  if  they  result  in  better  assessment  of  student  performance  than  more 
customary  measurement  methods.  As  a  test-bed,  microcomputer-based  graphic 
models  have  been  programmed  to  assess  how  well  F-14  Pilots  and  Radar  Inter¬ 
cept  Officers  (RIOs)  recognize  front-line  Soviet  and  non-Soviet  fighters  and 
bombers. 


Empirical  and  psychometric  studies  will  be  conducted  to  ascertain  If  this 
computer-based  game  provides  better  estimation  of  student  recognition  perfor¬ 
mance  compared  to  more  customary  measurement  methods,  i.e.,  multiple-choice 
or  completion  formats.  These  distinct  assessment  strategies  will  be  evaluated  in 
terms  of  their  relative  reliability,  validity,  and  fidelity. 


Objective 

The  objective  of  this  technical  report  is  to  document  the  programming  effort 
expended  to  develop  and  evaluate  this  generalisable  and  transferable  computer- 
based  gaming  system  for  assessing  recognition  performance.  This  was  done  so 
that  others  who  may  want  to  use  this  set  of  software  toots  for  either  research, 
development,  or  operational  implementation  will  have  an  easier  time 
comprehending  the  modularity  of  the  programming  structure  as  well  as  how 
specific  procedures  can  be  adapted  to  suit  a  user’s  unique  situation. 

Inorder  to  create  a  context  to  facilitate  further  the  understanding  of  the 
documentation  of  this  computer-based  game,  the  on-line  instructions,  presented 
to  student  pilots  and  RIOs  whose  performance  will  be  assessed,  are  as  follows: 

"For  research  purposes,  a  computer  game  called  "FLASH  IVAN"  has  been 
designed  and  developed  to  assess  how  well  Navy  Pilots  and  RIOs  recognize 
front-line  Soviet  and  non-Soviet  fighters  and  bombers.  This  randomly  selects  and 
presents  on  the  Terak  screen  with  millisecond  speed  either  the  fn>nt,  side,  or  top 
views  of  four  Russian  bombers  and  ten  of  their  advanced  fighters.  Also,  the  game 
management  system  can  choose  and  flash  corresponding  *  i!\ouettei  of  NATO  air¬ 
craft  which  act  as  distractors  for  the  Soviet  aircraft  becausr  of  the  high  degree  of 
similarity  between  them  which  could  easily  confuse  U.S.  aircrews. 

"This  game  assesses  student  performance  by  measuring: 

(1)  your  "hit  rate”  or  perc<>  \tage  of  correct  recognitions  out  of  a  total  of  eighty- 
four  silhouettes  (half  Soviet  and  the  other  half  non-Soviet), 

(2)  the  time  it  takes  you  or  '’latency"  to  make  a  recognition  judgment  for  each 
target  or  distractor  aircraft,  and 

(3)  your  degree  of  confidence  in  each  recognition  decision. 

"At  the  end  of  each  trial,  you  will  be  given  feedback  in  terms  of:  the  correct¬ 
ness  of  your  response;  a  running  tally  of  the  number  of  correct  recognitions,  your 
hit  rate,  average  response  latency,  and  average  degree  of  confidence  in  recognition 
judgments  up  to  this  point.  At  the  end  of  the  game,  you  will  be  given  how  your 
performance  compares  to  other  students  who  have  played. 

"Next,  six  examples  will  be  presented  to  familiarize  you  with  how  the  game 
is  played.  Notice  that  a  silhouette  will  flash  on  the  screen.  If  you  do  not  pay 
attention  and  concentrate  on  the  center  of  the  screen  you  will  likely  miss  seeing 
it!  Your  task  is  to  identify  as  quickly  as  you  can  the  flashed  aircraft.  After  the 
image  disappears,  you  will  see  the  prompt:  "AIRCRAFT  NAME:”.  Use  the  key 
board  to  type  in  after  this  prompt  what  you  think  the  aircraft  is,  i.e.,  its  NATO 
name  or  corresponding  alphanumeric  designation,  e.g.,  SABER  or  F-86.  Misspel¬ 
lings  count  as  wrong  responses. 
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as  the  ADMINISTRATION  Disk. 

Instructors,  on  the  one  hand,  may  want  to  create  a  new  game  with  a  com¬ 
pletely  different  database  than  the  original  game,  FLASH  IVAN,  which  uses 
aircraft-silhouettes.  There  are  two  basic  steps  in  undertaking  this  task: 

1)  the  creation  of  the  computer  images,  and 

2)  the  corresponding  database  which  associates  labels  with  each  image. 

The  user-friendly  programs  SEMIPAINT  and  MAKEDIR  on  the  ADM  disk  were 
designed  to  aid  an  instructor  in  performing  this  task. 

Researchers  or  evaluators,  on  the  other  hand,  may  wish  to  extract  statistical 
data  from  the  game.  The  program  MAKESTATS  has  been  designed  for  this  pur¬ 
pose. 

For  the  programmer  who  is  enhancing  the  game  to  suit  an  instructor’s  needs, 
the  ADM  disk  provides  many  basic  utilities,  e.g.,  PRINT  programs  and  disk  for¬ 
mating  programs,  as  aids.  The  actual  game  rode,  written  in  UCSD  Pascal,  also 
resides  on  the  ADM  disk.  A  programmer  may  want  to  change  the  code  in  mak¬ 
ing  basic  game  changes.  Of  cou  :  a  basic  familiarity  with  the  UCSD  P-system 
and  UCSD  Pascal  (Bowles,  19/7,  Grogono,  1980;  SoftTech,  1978)  is  prerequisite 
to  successful  completion  of  such  a  task. 

The  following  sections  give  the  details  of  the  utility  functions  on  the  ADM 
disk.  We  have  decided  to  approach  the  matter  from  the  point  of  view  of  the  user. 
Rather  than  describe  each  utility  function  separately,  we  have  opted  to  group 
descriptions  of  the  utilities  together  in  the  context  of  the  two  most  important 
outcomes  of  their  usage;  hence,  the  two  section  headings: 

1)  Creating  a  Game 

2)  Using  the  Statistics  Package 


We  recommend  that  you  walk  through  the  running  program  while  simultaneously 
reading  these  sections. 


2.  Creating  a  Game 

Two  of  the  variable  components  that  are  the  basis  for  a  new  game  are  : 

1)  the  images,  graphic  representations,  or  pictures 

2)  the  information  associated  with  each  image 

This  game-specific  information  is  always  contained  on  a  disk  which  is  separate 
from  the  game-code  disk,  and  is  to  be  placed  'id  the  top-disk  drive  during  run 
time.  Theoretically  then,  a  new  game  can  be  played  simply  by  putting  a  new  disk 
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in  the  upper  disk  drive  and  rebooting.  This  new  disk  would  contain  a  new  set  of 
graphics  (called  FOTOFILES)  and  new  corresponding  Information  (called  an 
IMAGE  DIRECTORY). 


2.1.  Creating  Game  Images 

The  task  of  creating  graphics  or  images  is  certainly  the  bulk  of  the  work 
load  in  creating  a  new  game;  it  involves  the  meticulous  recreation  of  drawings  or 
their  like  into  computer  images.  There  are  typically  two  ways  of  undertaking 
this  task  :  by  use  of  a  digitizer  or  by  hand  using  some  sort  of  graphics  editor. 

Certainly  the  fastest  and  most  convenient  of  these  two  methods  is  by  use  of 
a  digitizer,  a  type  of  camera  which  has  the  capability  to  project  any  image  that  it 
can  "see”  onto  the  computer  screen.  However,  we  have  yet  to  discover  a  digitiz¬ 
ing  system  that  is  compatible  with  the  TERAK  microcomputer. 

We  resorted  to  the  slower  of  method  of  converting  each  image  by  hand  (see 
SEMIPAINT  instructions  for  more  details);  however,  any  graphics  editor  that  can 
work  on  the  TERAK  and  create  320  x  240  pixel  images  should  work  fine.  It  is 
also  important  that  the  name  of  the  file  holding  the  image  end  in  the  suffix 
”.FOTO”.  Any  file  ending  in  ".FOTO”  is  called  by  convention  a  fotofile  and 
generally  corresponds  to  a  320  x  240  packed  array  of  boolean.  Each  member  in 
the  array  is  stored  in  memory  as  a  bit  and  corresponds  to  one  pixel  (or  dot  on  the 
screen).  We  also  recommend  the  use  of  a  grid-system  in  converting  technical 
drawings  to  computer  image  so  as  to  maintain  accuracy.  By  placing  a  piece  of 
see-through  graph  paper  over  the  drawing  and  a  cooresponding  grid  on  the  com¬ 
puter  display,  one  can  accurately  translate  the  original  figure  to  the  screen. 

In  order  to  maximize  the  number  of  images  that  can  be  used  in  a  game,  we 
have  given  the  game  creator  the  option  of  dividing  each  320  x  240  pixel  fotofile 
into  thirds.  These  thirds  are  referred  to  as  the  TOPTHIRD,  MIDTHIRD,  and 
BOTTHIRD  and  consist  of  320  x  80  pixels.  Thus,  either  1,  2,  or  3  images  can  be 
stored  on  one  FOTOFILE;  when  an  image  is  flashed  to  the  screen  it  will 
automatically  be  centered.  Several  restrictions  pertaining  to  gaming  images  to  be 
wary  of  are: 

1)  a  maximum  of  89  images  are  allowed  in  the  game 

2)  a  maximum  of  50  FOTOFILES  are  allowed  on  the  upper  disk 

These  restrictions  have  been  imposed  due  to  the  limited  storage  capabilities  of 
the  TERAK  microcomputers. 


When  all  of  the  FOTOFILES  for  use  in  the  game  have  been  created,  It  is 
necessary  to  store  them  on  one  disk  which  must  be  FORMATed  and  ZEROed 
beforehand  (see  instructions  for  UCSD  P-system).  The  disk  must  also  hold,  in 
addition  to  the  game  FOTOFILES,  the  following  standard  files  that  the  proto¬ 
type  game  needs  to  access: 

EXl.FOTO 

EX2.FOTO 

EX3.FOTO 

EX4.FOTO 

EX5.FOTO 

FLAGS.FOTO 

EAGLE1.FOTO 

EAGLE2.FOTO 

IN1.FOTO 

IN2JOTO 

INSTRUCT.TEXT  —  game  instructions 
NONE.FOTO 

You  must  copy  these  files  onto  your  disk.  Two  other  files  that  you  need  not 
worry  about,  which  will  appear  on  your  disk  later  are: 

NEV THAMES  —  the  Image  Directory 

H1SCORE.DATA  -  keeps  record  of  top  ten  players 


2.2.  Creating  the  Image  Directory 

Once  all  of  the  game  images  have  been  put  on  the  special  disk,  it  becomes 
necessary  to  create  an  Image  Directory.  The  Image  Directory  is  a  list  of  100 
records  that  provide  the  main  program  with  information  concerning  each  visual 
stimulus  in  the  game.  Records  90-100  have  been  specifically  reserved  for  system 
images.  Records  1-89  are  for  your  use,  giving  the  main  program  information  con¬ 
cerning  game  images.  Each  record  contains: 

a)  two  identification  names  associated  with  each  image 

b)  the  name  of  the  fotofilc  which  holds  the  image 

c)  where  on  the  fotofilc  the  image  is  stored 


The  program  MAKEDIR  has  been  especially  designed  in  aiding  the  game 
creator  in  making  an  Image  Directory.  Before  executing  MAKEDIR,  be  sure  the 
disk  with  the  game  fclofilca  is  in  the  upper  disk  drive.  This  action  is  necessary 
because  the  Image  Directory  also  stores  device-dependent  information  concerning 
where  each  FOTOFILE  is  on  the  disk,  thus  enabling  the  use  of  better  and  faster 
routines  in  projecting  an  image  to  the  screen.  In  addition  to  this,  the  Image 
Directory  ,s  stored  on  the  images  disk. 
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Upon  executing  MAKEDIR,  the  user  will  see  the  following  menu: 

MAKEGAME  OPTIONS: 

1)  EDIT  DIRECTORY 

2)  CONVERT  DIRECTORY 

3)  QUICKLIST 

4)  MAKE  HISCORES  FILE 

5)  QUIT 

Typing  ”1”  will  enable  the  user  to  begin  creating  an  Image  Directory  for  the  first 
time  or  to  edit  a  pre-existing  Image  Directory.  The  next  prompt  a  user  will 
encounter  is: 

Edit  OLD  file  or  make  NEW  file?  (O/N]  —  > 

Type  "N”  (meaning  "NEW")  to  get  the  next  prompt: 

EDITING  OPTIONS: 

1)  INDEX  CHOICE 

2)  AUTO-INDEX 

The  INDEX  CHOICE  option  allows  the  user  to  edit  any  one  record  in  the  index 
range  1  to  100.  This  option  becomes  especially  useful  to  a  user  who  is  making 
sma’I  changes  to  an  OLD  Image  Directory.  The  AUTOJNDEX  option,  on  the 
othe-  hand,  will  automatically  loop  through  a  predefined  sequence  of  records  after 
the  user  is  done  editing  a  particular  record.  This  option  is  especially  applicable 
to  the  user  who  is  creating  a  NEW  directory.  After  typing  "2”  specifying  the 
AUTO-INDEX  option,  the  next  prompt  to  appear  will  be: 

Enter  lower  index  bound,  space,  upper  index  bound 

These  bounds  indicate  the  range  of  records  you  wish  to  edit.  Needless  to  say,  the 
lower  index  bound  should  be  less  than  the  upper  index  bound,  and  both  bounds 
should  be  within  the  1-100  range.  More  likely  than  not,  you  will  not  need  to  edit 
records  90-100;  they  have  been  preset  and  pertain  to  "system"  images.  Be  wary 
that  once  you  begin  editing  records  in  a  certain  range,  you  must  complete  the 
sequence  if  you  wish  the  information  to  be  recorded  on  the  upper  disk.  Eighty- 
nine  records  are  a  lot  of  records  to  edit  in  one  sitting.  If  you  have  a  limited 
amount  of  time  you  may  only  want  to  edit  records  in  sequences  of  10.  This 
method  will  also  allow  you  the  freedom  to  go  back  and  repair  minor  mistakes  you 
may  have  made  with  the  INDEX  CHOICE  option  (as  opposed  to  having  to  go 
through  all  89  records  before  coming  back  to  repair  mistakes).  Once  you  have 
entered  your  index  bounds,  you  will  be  presented  with  a  menu  which  cooresponds 
to  one  record  in  the  Image  Directory.  The  menu  will  appear  as  such: 

INDEX  NUMBER  n 

Name  1:  nonel23 

Name  2:  none!23 


Fotofilename:  FLAGS.FOTO 

Fullscreen  (T/F)  TRUE 

TopThird  IT/FJ  FALSE 

MldThlrd  [T/F]  FALSE 

BotThlrd  [T/F]  FALSE 

Use  the  arrow  keys  on  the  right  side  of  the  keyboard  to  move  among  the  choices. 
You  will  notice  a  small  arrow  on  the  left  border  of  the  menu  specifying  which 
item  you  are  currently  pointing  to.  Type  WS"  to  select  the  item  you  wish  to 
make  changes  to.  For  example,  suppose  the  indicator  arrow  is  pointing  at  "Name 
1:".  Typing  "S"  will  provoke  a  new  prompt  occurring  at  the  bottom  of  the 
screen: 

Name  1  is  currently  "nonel23” 

Enter  the  new  Name  1:  —> 

After  entering  the  new  Name  1  followed  by  <RET>,  you  will  notice  the  new 
prompt  on  the  right  hand  side  of  the  screen: 

Change  more  values?  [Y/N] 

This  same  prompt  will  occur  after  any  change  that  you  make.  A  "Y"  response 
will  bring  you  back  to  the  same  indexed  record.  A  "N"  response  will  automati¬ 
cally  project  the  next  sequential  record  to  the  screen  (provided  you  are  in  the 
AUTO-INDF  C  model.  So  when  typing  "N”  be  sure  that  you  have  entered  in  all 
of  the  correct  information,  because  if  you  have  make  any  mistakes  and  typed 
"N"  going  on  to  the  next  record,  you  wou't  be  able  to  go  back  and  correct  the 
mistakes  until  you  are  done  with  the  sequence  of  records.  Suppose  you  were  to 
type  " Y ",  going  back  to  the  same  record  to  edit.  You  select  "Name  2:";  if  there 
is  no  second  name  associated  with  your  image,  It  is  best  to  enter  an  empty  string 
by  simply  hitting  <RET>  when  prompted  for  "Name  2:";  otherwise,  if  a  game 
player  were  to  respond  incorrectly  to  this  game  image,  the  name  "nonel23" 
would  appear  under  "the  correct  name  is:"  heading. 

In  selecting  "Fotoflle  name:  ",  you  will  notice  that  It  has  been  preset  with 
the  name  FLAGS.FOTO.  This  acts  as  a  default  file  which  will  be  flashed  to  the 
screen  if  you  happened  to  have  forgotten  to  type  in  a  fotoflle  name.  When  you 
enter  the  fotoflle  name,  be  sure  to  include  the  ".FOTO"  suffix.  All  fotoflles  are 
assumed  to  be  in  the  top  drive  so  the  prefix  ”#6:"  Is  unnecessary. 

The  remaining  four  fields  of  the  record  Indicate  where  the  image  is  stored  on 
the  fotoflle.  For  Instance,  If  "Fullscreen"  were  set  to  "TRUE",  then  image  Is  con¬ 
tained  on  a  complete  fotoflle;  and  conversely,  it  would  be  set  "FALSE"  If  It  was 
uot  contained  on  a  complete  fotoflle.  Note  that  more  the  one  of  these  fields 
could  not  possibly  be  set  "true"  at  the  same  time;  in  other  words,  an  image  could 
not  possibly  occupy  a  full  fotofile  and  a  third  of  a  fotoflle  simultaneously.  So  as 
soon  as  as  one  of  theoe  items  is  selected,  it  Is  automatically  set  to  "TRUE”  while 
the  remaining  items  are  set  to  "FALSE". 
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Whenever  you  are  done  editing  after  either  completing  a  AUTO  INDEX 
sequence  or  responding  ”N”  to  the  prompt  "Another?”  in  INDEX-CHOICE,  the 
screen  will  clear  and  the  computer  will  inform  you  that  it  is  "converting”  the 
directory,  before  taking  you  back  to  the  main  menu.  During  "converting"  If  any 
of  the  fotofilea  that  you  listed  under  "Fotofile  name:"  are  not  on  the  images  disk, 
you  will  get  a  message  notifying  you  of  this.  This  function  is  described  in  more 
detail  below. 


2.3.  More  Utilities 

After  Editing  an  Image  Directory,  or  whenever  running  the  utilities  program 
MAKEDIR,  the  user  will  always  be  presented  with  the  main  prompt: 

MAKEGAME  OPTIONS: 

1)  EDIT  DIRECTORY 

2)  CONVERT  DIRECTORY 

3)  QUICKLIST 

4)  MAKE  HISCORES  FILE 

5)  QUIT 

We  bave  already  discussed  option  #1  concerning  Editing  a  directory.  The  fol¬ 
lowing  paragraphs  discuss  the  remb,.  ing  options. 


2.3.1.  Converting  the  Directory 

Typing  "2”  from  the  main  prompt  line  will  run  code  that  "converts”  an 
Image  Directory.  Converting  a  directory  is  processed  on  the  top  disk  which 
translates  fotofile  names  into  numbers  which  describe  where  a  fotofile  is  on  disk. 
This  number  (referred  to  as  the  BLOCK  number)  is  stored  in  a  "hidden”  field  in 
each  record  of  the  Image  Directory;  its  main  function  is  to  speed  up  the  time  it 
takes  to  access  an  image  from  disk  and  flash  it  to  the  screen  during  game  time. 
When  it  has  finished,  image  directories  ("NEWNAMES”)  will  be  written  to  both 
the  upper  and  lower  disks. 

Whenever  any  disk  operations  (ADDing  a  file,  DELETING  a  file,  KRUNCH- 
ing  the  disk,  etc.)  are  performed  on  the  Images  disk,  the  P-system  filer  usually 
rearranges  the  placement  of  files  on  a  disk;  thus  Converting  the  disk  is  essential 
in  these  instances  so  as  to  assign  new  BLOCK  numbers  to  Fotofiles.  If  ever  you 
come  across  a  bizarre  collage  of  images  flashed  to  the  screen  during  game  time,  it 
has  probably  resulted  from  your  forgetting  to  "Convert"  the  Image  Directory. 

Note  that  it  is  unnecessary  to  select  the  CONVERT  option  if  you  are  editing 
an  Image  Directory  since  the  EDITING  option  automatically  converts  the  disk 
for  you.  Also,  If  ever  you  entered  a  fotofile  Dame  that  is  not  on  the  images  disk, 


the  Conversion  function  will  send  a  message  to  the  screen  indicating  this. 


2.3.2.  Quicklist 

Typing  ”3”  from  the  main  menu  will  automate  the  QUICKLIST  function. 
This  is  a  convenient  way  to  quickly  look  over  every  record  in  the  Image  Direc¬ 
tory.  As  each  record  is  scrolled  down  the  screen,  you  will  notice  the  addition  of 
the  aforementioned  "  hidden”  field  labelled  BLOCK  included  in  each  record  list¬ 
ing.  The  entire  list  of  100  records  in  the  Image  Directory  will  be  sent  to  the 
screen,  and  then  to  a  file  ” QUICKLIST. TEXT"  on  the  disk  in  the  bottom  disk 
drive.  This  list  can  then  be  sent  to  the  line  printer  for  further  scrutiny  using  the 
PRINT  program. 


2.3.3.  Making  the  Hiscores  File 

"Make  Hiscores  File"  will  create  a  new  HISCORE.DATA  file  which  will 
prompt  you  for  the  top  ten  players  (we  have  used  fictional  people)  and  their 
respective  scores.  When  entering  in  the  new  list,  it  is  not  necessary  to  list  players 
and  scores  in  any  special  order.  The  program  will  automatically  list  them  from 
top  to  bottom  in  descending  order  according  to  score.  The  current  version  of  the 
game  maps  scores  in  the  0  -  1000  range,  so  it  is  best  to  enter  scores  in  this  range. 


3.  Using  the  Statistical  Facilities 

MAKESTATS  is  a  program  which  takes  the  data  from  the  computer 
recognition  game  and  formats  it  into  a  text  file  so  that  it  can  be  viewed  or  sent 
to  a  printer.  In  order  for  it  to  operate  correctly  it  must  have  two  important  files 
on  the  same  disk  (i.e.  the  "ADM”  disk): 

NEWNAMES 
GAMES. DATA 

NEWNAMES ,  the  image  directory,  is  needed  so  as  to  associate  image  names  with 
statistics.  GAMES. DATA,  a  record  file,  holds  the  game  stats  and  consists  of  the 
record  type  "gamestats": 
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const  numberpictures  =  80; 
type  GAMESTATS  =  record 
name  :  nametype; 

SS  :  sstype; 

date  :  nametype; 

latency  :  array (l.. numberpictures)  of  integer; 
confidence  :  array [1.. numberpictures]  of  scale; 
correct  :  array(l.. numberpictures]  of  boolean; 
end; 

type  nametype  string(15j; 
sstype  =  string[ll]; 


The  constant  NUMBERPICTURES  is  set  to  the  number  of  total  possible  images 
which  can  be  shown  in  the  game,  not  the  actual  number  used  in  each  game.  Mak- 
estats  is  set  up  so  that  any  number  of  graphic  stimuli  can  be  used  (up  to  the 
maximum)  in  a  game.  Only  those  actual  photos  used  in  each  game  are  tallied  for 
averages  over  several  games.  Records  of  type  GAMESTATS  keep  statistics  for 
each  game  and  when  it  is  through,  and  are  saved  in  a  disk  file,  GAMES.DATA. 
Recorded  for  each  game  are: 
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name: 

ss: 

date: 

latency: 

confidence: 

correct: 


The  player’s  name,  up  to  15  letters; 

The  player’s  Social  Security  number,  any  string  u*'  to  11 
characters  is  allowed  so  that  errors  can  b  avoided  when 
non-numeric  data  is  entered; 

And  likewise,  a  15-character  length  string  for  the  date 
the  game  is  played  is  kept; 

The  player’s  response  latency  is  kept  for  every  image  he 
responds  to,  if  an  image  is  not  used  in  the  game  then  the 
latency  will  be  0; 

And  similarly,  the  player’s  confidence  rating  which  he 
has  keyed  in  for  every  image; 

Whether  the  player  actually  got  the  image  recognition 
correct  or  not. 


After  a  game  is  completed,  a  variable  CURRENTGAME  of  type  GAMESTATS  is 
appended  onto  GAMES.DATA. 

When  Makestats  is  executed,  GAMES.DATA  is  opened  and  each  game  that 
has  been  saved  is  read  one  at  a  time.  They  are  then  neatly  formatted  and  put 
into  two  textfiles  on  disk:  LATENCY.TEXT  and  CONFIDENCE.TEXT. 
Latency.text  will  include  vertical  and  horizontal  averages  of  the  response  laten¬ 
cies.  That  is,  each  player’s  average  response  latency  over  one  game,  and  the 
average  response  latency  for  each  photo  over  all  the  games  recorded. 
Confidence.text  includes  the  same  thing  for  the  confidence  ratings  and  averages, 
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but  the  correctness  ratings  are  also  included;  a  is  put  before  the  confidence 
rating  if  the  player  got  the  recognition  correct,  otherwise  a  if  he  got  it  wrong. 
Also,  in  the  formatted  output  are  included  the  percentage  of  graphic  stimuli  the 
player  correctly  recognized  in  each  game  and  the  percentage  of  games  which  got 
any  certain  photo  right. 

As  makestats  is  executed,  the  old  data  in  GAMESDATA  is  erased,  and  a 
new  GAMES.DATA  is  initialized  with  0  game  entries.  In  order  for  the  game  to 
save  statistics  properly,  GAMESDATA  MUST  be  the  LAST  file  on  the  disk’s 
directory.  Otherwise,  the  file  will  get  too  large,  there  will  be  an  I/O  error,  and 
the  game  will  not  be  saved.  If  the  error  message  appears: 

i/o  error:  no  room  on  volume 

Then  you  must: 

1)  Delete  GAMES.DATA  from  the  disk, 

2)  K)runch  the  disk  in  the  Filer, 

3)  eXecute  DRIVER. 

DRIVER  is  an  executable  file  which  initializes  an  empty  GAMES.DATA  file  on 
the  disk  in  the  upper  disk  drive. 


The  text  files  LATENCY.TEXT  and  CONFIDENCE.TEXT  have  cross- 
references  to  index  planes  and  players.  This  is  a  sample  LATENCY.TEXT  prin¬ 
tout: 


*  -»*•■*-'-*-*■*  t*,  v*yVS  rV» 


The  players  are  indexed  by  capital  letters  AA,AB,AC,...,BA,BB...ZZ  and  later  are  cross 
referenced  with  their  name  and  Social  Security  number,  the  date  of  the  game,  and  their 
average  response  latency  (or  average  confidence  and  percentage  correct  as  in 
CONFIDENCE.TEXT).  The  images  are  indexed  with  numbers  1,2,3...  across  in  rows  of 
12  so  that  it  is  feasible  to  put  all  the  data  on  one  page.  At  the  end  the  planes  are  cross- 
referenced  to  the  viewing  angle  (top,  front,  or  side),  the  plane  name,  and  the  average 
response  latency  scored  on  that  plane  for  ALL  the  games  using  that  graphic  image.  The 
same  pertains  to  the  average  confidence  and  percentage  correct  for  ALL  the  games  using 
that  picture,  for  CONFIDENCE.TEXT. 


9 


r  ■> 

9 


9 


14 


»*»' V»V»V«  V-  vV'.V/.', 


A  V*  |S  >  /■  -,s  .*  A  .V.V.V.V.sW.^.'^A*. 


PROGRAMMER’S  NOTES  --Modifying  the  Game  Code 


4.  Introduction 

This  section  of  the  documentation  is  designed  to  serve  as  a  technical  refer¬ 
ence  for  programmers  who  may  wish  to  make  slight  modifications  to  the  game 
code  itself  which  is  independent  of  the  database.  We  have  divided  it  into  four 
main  sections: 

1.  Overview  -an  introduction  and  reference  guide  to  making  changes 

2.  The  File  G/.IVAN  —technical  descriptions  of  procedures 

3.  The  File  GAME  UN  3  —technical  descriptions  of  procedures 

4.  The  File  ITEMFILER3  —technical  descriptions  of  procedures 

5.  Overview 

The  computer-based  recognition  game  in  its  present  form.  Flash  Ivan,  is 
currently  implemented  on  the  UCSD  p-system,  version  II. 0.  It  is  run  on  a  Terak 
8510  dual-density  machine,  with  an  auxiliary  8515  dual-density  drive.  The  game 
requires  two  disks,  the  bottom  (#4:)  drive  gets  the  disk  with  the  actual  program 
(named  System. startup—  a  program  that  automatically  runs  when  the  disk  is 
inserted),  while  the  top  (#5:)  drive  gets  the  disk  with  the  database,  described  in 
the  section  on  IlemFilerS. 

This  particular  implementation  of  the  game  consists  of  aircraft  silhouettes, 
but  it  could  be  used  for  any  set  of  graphic  images  that  could  be  drawn  into  the 
database  (see  the  Utilities  documentation),  and  used  in  a  recognition-game  for¬ 
mat.  Because  of  this,  we  may  refer  to  "planes”,  "airplanes”,  "pictures”, 
"images",  "visual  stimuli”,  "graphics”,  or  "database  objects”.  All  of  these  refer 
to  the  same  thing. 

5.1.  The  Files 

The  Flash  Ivan  game  code  consists  of  the  following  files: 

G/.IVAN  --  Pascal  host  program 

GAMEUN3  —  Pascal  library  file 

ITEMFILER3  -  Pascal  library  file 

ERROR  -  Assembler  code  for  sounds 

CLICK2  —  Assembler  code  for  sounds 

TIMEPI  —  Assembler  code  for  sounds 

The  code  was  split  into  seperate  files  to  make  manageable  segments,  without 
much  effort  being  made  toward  extreme  modular  cohesiveness.  The  host  file, 
G/.IVAN,  contains  the  main  driving  routine,  and  several  assorted  procedures  and 
functions.  The  file  GAMEUN3  contains  more  assorted  procedures  and  functions, 
as  well  as  a  few  constant  declarations  for  good  measure.  The  most  cohesive  file, 
ITEMFILER3,  contains  procedures  dealing  with  the  database,  some  constant 
declarations,  and  the  HI-SCORES  procedure.  There  are  also  some  separate 
assembly  language  routines  that  need  to  be  linked:  ERROR,  TIMEPI,  and 
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CLICK2;  these  all  produce  the  different  sound  effects. 

5.2.  An  Important  Global  Variable 

The  variable  Info_Liat,  declared  in  the  file  ItemFUerS,  is  an  array  with  one 
element  for  each  item  in  the  database.*  Each  element  in  the  array  contains  infor¬ 
mation  on  what  the  airplane’s  different  names  are,  and  how  to  get  it  from  the 
disk  and  show  it  on  the  screen.  This  is,  in  some  sense,  the  " master  variable”  of 
the  game.  It  allows  most  of  the  game  procedures  to  think  of  the  planes  only  in 
terms  of  indices  into  the  array,  and  allow  a  couple  of  interfaces  (the  procedure 
CheckAnswcr,  the  functions  in  the  file  Itemf'-rS)  to  actually  deal  with  the  other 
information. 

6.3.  Making  Changes 

For  programmers  who  plan  on  making  any  changes  to  these  files,  we  recom¬ 
mend  using  the  ensuing  FLASH  IVAN  technical  descriptions  as  a  reference. 
Before  relinking  any  freshly  compiled  files  (listed  above),  please  be  sure  the  com¬ 
pilation  dates  as  listed  from  the  Filer  are  consistent.  If  the  dates  are  not  the  same 
on  any  two  files,  linking  errors  will  result.  To  change  the  date  on  any  file,  you 
must  first  change  the  date  for  the  disk  (Date  option  in  the  Filer)  and  then  recom¬ 
pile  or  reassemble  the  file. 

5.4.  Relinking 

When  linking,  remember  that  "G/.IVAN”  should  be  typed  in  as  response  to 
the  prompt  "Host?”.  For  the  sequence  of  prompts  "Lib  file?”,  the  other  files 
listed  above  (as  well  as  ”*"  for  the  System.library)  should  be  included.  For  the 
prompt  "Output  file?",  be  sure  to  add  the  ".CODE”  suffix  so  that  it  will  be  exe¬ 
cutable.  On  the  official  game  disks,  we  often  moved  our  executable  game  file  into 
the  file  System. startup;  thus  upon  booting,  control  is  immediately  passed  to  the 
game.  In  this  way,  naive  game  players  need  not  deal  with  the  particularities  of 
the  P-System. 
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5.5.  Transportablity 

Flash  Ivan  is  designed  to  run  on  any  computer  with  at  least  128K  RAM  that 
supports  the  UCSD  P-system.  However,  if  Flash  Ivan  is  to  be  run  on  any 
machine  other  than  the  Terak,  slight  modifications  must  be  made  to  the  game 
code.  As  a  rule  of  thumb,  it  is  safe  to  assume  that  any  code  having  to  do  with 
device-dependent  graphics  or  sound  manipulations  will  have  to  rewritten.  To 
make  the  game  code  as  transportable  as  possible  we  have  attempted  to  localize 
most  of  the  machine  dependent  code  in  the  file  ITEMFILER3.  Modifications 
must  be  made  here.  ITEMFILER3  serves  as  a  home  for  the  majority  of  the 
graphics  code. 


*  We  consider  the  database  to  contain  all  the  information  about  the  pictures,  plus  the 
pictures  themselves.  The  top  disk  (#5:)  contains  the  database. 
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5.8.  Secret  Codes 

After  having  made  any  changes  to  some  of  the  Pascal  files,  we  suggest  that 
you  record  the  latest  date  of  change  in  the  string  constants  at  the  top  of  each 
file,  DateMain,  Date  Game  UnS ,  or  DateltemFilerS.  These  three  dates  can  be 
displayed  from  the  linked  and  running  version  of  the  game  by  typing  in  a  secret 
code  word  at  the  start  of  any  game  (see  the  function  Practice,  in  the  file 
G/.IVAN.  With  so  many  different  files  and  so  many  different  disks,  as  well  as 
several  programmers,  we  found  that  this  facility  helped  us  organise  ourselves  as 
well  as  see  what  version  of  the  game  we  were  actually  playing. 

In  addition  to  seeing  what  version  of  the  game  you  have,  there  are  other 
functions  you  can  invoke  from  the  start  of  the  game.  Upon  seeing  the  prompt 
"HIT  RETURN  TO  BEGIN  GAME"  just  above  the  Eagle’s  head,  you  can 
access  the  "version"  function  as  well  as  a  few  other  helpful  ones.  The  code  char* 
acters  and  their  corresponding  functions  are  listed  below: 


<esc> 

"y” 

m 


”d” 


"h" 


to  bypass  instructions  and  examples 
to  list  versions  of  Pascal  host  and  objects 
to  see  memory  available.  We  were  pushing  the 
upper  limits  of  RAM  when  this  documentation  was 
written,  so  this  function  came  in  handy.  Be 
wary  if  you  plan  to  make  any  major  additions, 
to  display  any  pictures  from  the  image  directory 
The  image  directory  is  an  array  of  100  records  containing 
graphical  information  on  each  game  image.  Entering 
numbers  between  i-100  is  advised  here.  If  any  images 
are  centered  incorrectly  or  the  wrong  picture  is  displayed, 
it  is  likely  that  the  image  directory  needs  to  be 
"converted”,  or  bad  information  was  put  in  the  image 
directory  by  a  game  maker.  Consult  the  "Flash  Ivan 
Utilities”  Documentation, 
to  view  the  HISCORES  file 


These  characters  can  entered  in  either  upper  or  lower  case.  One  version  of  the 
game  requires  you  to  hit  the  password  "boatman"  from  the  main  prompt  in  order 
to  access  any  of  these  functions.  This  prompt  mwl  be  lower  case.  Since  the 
Terak  is  initialized  to  an  "all-cap"  status,  you  need  to  know  how  to  get  to  an 
"upper/lower  case"  status.  The  <DC2>  key  at  the  lower  right  of  the  keyboard 
provides  the  function  of  toggling  between  these  two  keyboard  states.  See  the  pro¬ 
cedure  Practice  in  the  file  G/.IVAN  for  more  details. 


8.  The  File  G/.IVAN 

Gj  ivan  is  a  file  that  contains  the  main  body  of  the  game  program.  It  makes 
calls  to  other  procedures  defined  in  library  files  so  as  to  provide  a  cohesive  unit 
among  all  of  the  game  files. 
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6.1.  Constants  in  G/.IVAN 

There  are  three  constants  defined  in  this  file.  It  is  arguable  whether  or  not 
the  constant  declarations  should  be  here  instead  of  in  one  of  the  units  with  the 
other  constants,  but  they  are  only  used  here,  so  there  is  some  justification. 


name: 


This  is  set  to  the  filename  where  the  statistics  will  be  col¬ 
lected. 


PRACSTART :  This  is  set  to  the  beginning  index  of  the  practice  pictures.  In 

our  implementation,  the  actual  game  pictures  go  from  1  to  84. 
Practice  pictures  then  start  at  86.  85  is  a  "delimiting’1  entry. 
(See  the  section  on  ItemFUerS  for  an  explanation  of  the  data 
base,  indexing,  etc.) 

numberpictures  :  This  tells  the  statistics  functions  how  many  different  test 
items  there  are.  Statistics  will  be  printed  for  items  one 
through  numberpictures.  (See  the  MakeStats  subsection  of 
Utilities  for  more  on  the  statistics  functions.) 

DateMain:  This  is  for  programming  convenience.  It  is  a  string  constant 

set  to  the  date  and  time  the  file  G/.Ivan  is  modified.  The 
”  v  option  at  the  beginning  of  the  game  will  print  out  this 
const  int,  as  well  as  similar  ones  in  GameUnS ’,  and  ItemfilerS. 


6.2.  The  Program  Run 


The  ”  main”  procedure  of  the  program  is  fairly  small  (about  ten  lines),  and  is 
run  through  only  once  per  game.  Calls  are  made  to  procedures  to  initialize  the 
statistics  variables  and  database  list  ( JnfoJList ),  and  show  the  opening  animation. 
Then  the  variable  TotalPictures  is  set  to  forty-two.  This  is  a  number  particular 
to  this  game,  and  means  that  only  forty-two  of  the  total  of  eighty-four  pictures 
will  be  included  in  any  one  game.  For  a  game  to  include  the  entire  set  of  pic¬ 
tures,  a  call  to  the  function  ListLength  with  the  parameter  Jnfojbiet  to  set 
TotalPictures  could  be  made  instead. 

Next,  the  procedure  ChoosePlanes  is  called,  with  PicSeque nee  as  its  parame¬ 
ter.  PicSequence  is  an  array  of  integers,  declared  in  GameUn3.  The  integers  it 
will  contain  correspond  to  database  indices,  one  for  each  picture  contained  there. 
The  ChoosePiane  procedure  is  another  that  is  specific  to  the  database,  and  par¬ 
ticular  game  demands  of  Flashlvan.  It  will  pick  seven  Soviet  top  views,  the 
seven  corresponding  NATO  distractor  top  views;  seven  Soviet  sides,  the 
corresponding  NATO  side  view  distractors;  and  seven  Soviet  front  views  and 
their  distractors  for  a  total  of  forty-two  aircraft  images.  This  is  out  of  a  possible 
eighty-four  silhouettes.  They  will  not  be  randomly  ordered ,  but  each  set  of  seven 
will  be  randomly  chosen  from  fourteen  possible  images. 


Id  order  to  present  the  pictures  in  a  random  order,  the  procedure  Sh%ffle  Is 
next  called,  with  reference  parameter  PicSequence ,  and  value  parameter  Total - 
Pictures  to  tell  how  many  to  shuffle.  PieSequen ce  will  return  with  the  same  set 
of  picture  indices,  but  in  a  new,  shuffled  order. 

The  procedure  PrivacyAct  shows  two  fotofiles  which  contain  the  necessary 
text  explaining  to  the  research  subjects,  who  are  about  to  play  the  game,  that 
they  are  asked  to  not  only  identify  themselves  but  also  give  their  social  security 
numbers  to  facilitate  statistical  analyses  involved  in  evaluating  thin  computer- 
based  testing  strategy.  Further,  the  subjects  are  informed  that  playing  the  game 
is  completely  voluntary  on  their  part.  This  procedure  will  also  present  a  textflle, 
one  screenful  at  a  time,  containing  instructions  for  the  game,  and  any  other  prel¬ 
iminary  comments  that  the  game  player  should  be  familiar  with.  Someone  imple¬ 
menting  their  own  game  could  write  their  own  version  of  the  instructions.  Tne 
file  should  be  on  the  top  disk  (#5:),  and  be  called  INSTRUCT .TEXT. 

Hello  will  prompt  for  and  read  the  player's  social  security  number,  name, 
and  date.  It  will  then  re-display  the  information  and  ask  for  confirmation.  The 
player  is  allowed  to  re-enter  information  until  he  is  satisfied  with  it. 

The  Practice  procedure  first  shows  three  examples,  animating  or  mimicking 
a  game  so  the  player  can  see  how  to  play,  and  in  what  order,  including  the  com¬ 
puter  typing  in,  instead  of  the  subject,  the  names  of  aircraft  displayed  character 
by  character.  Then,  it  calls  the  same  procedures  for  showing  three  additional 
example  silhouettes  to  elicit  actual  p  -  "tice  responses  from  the  players,  i.e.,  typ¬ 
ing  in  themselves  aircraft  names  and  Tor  reporting  feedback  to  them  as  the 
actual  game  would  for  three  M.ve  example  trials.  This  allows  the  subject  to 
become  more  comfortable  with  Vow  the  game  is  played  before  she/he  really 
attempts  it.  The  six  example  trials  consist  of  the  same  set  of  pictures  every  time. 
(See  Utilities  for  an  explanation  of  how  to  put  in  practice  pictures.)  This  pro¬ 
cedure  does  net  save  the  results  when  done. 

InitStats  initializes  the  statistics  variables.  For  a  more  detailed  description, 
see  below. 

The  procedure  GameS  is  the  major  game-playing  loop  which  presents  the 
player  with  the  full  set  of  images  (whatever  the  variable  TotalPictures ,  which 
resides  in  the  file  GameUn3,  says)  and  keep  track  of  all  the  game  information. 

The  procedure  AfterGame  will  write  the  information  for  the  game  just 
played  to  the  disk  under  the  subject’s  name.  It  will  then  show  the  player’s  final 
score,  and  call  HiScores  to  show  the  current  top-ten  players. 

6.3.  The  procedures  In  G/.FVAN 

Due  to  the  space  limitations  of  the  Terak  8510  computers,  we  had  to  make 
as  many  procedures  as  possible  "Segment”  procedures.  That  is,  they  will  only  be 
loaded  into  memory  when  needed,  and  then  moved  back  out  leaving  room  for 
others. 


8.3.1.  Player  Orientation  Procedures 

These  are  the  procedures  that  are  used  in  the  beginning  of  the  game  to 
acquaint  the  user  with  the  rules,  and  allow  him/her  to  get  familiar  with  the  flow 
of  the  game  by  watching  and  playing  some  practice  examples. 


Procedure  PaintBlockfVAR  Source,  Srcwid,  Srcx,  Srcy,  integer;  VAR  Dest; 
Detwid,  Dstx,  Dsty,  Cntx,  Cnty,  Mode,  Gray:  integer); 

This  externally  assembled  file  is  located  in  the  System. Library,  and  can  thus 
be  accessed  upon  linking  to  the  System. Library.  PointBlock  simply  copies  bit 
maps  from  "Source"  (a  boolean  array)  to  "Dest”  (another  boolean  array.  "Cntx" 
and  "Cnty"  are  the  width  and  height  of  the  block  of  the  boolean  array  to  be 
copied.  The  "Mode"  parameter  gives  the  following  boolean  operations:  0  ** 
store,  1  =  or,  2  —  and,  3  =  xor,  4  —  complement.  The  "Gray”  mode  seems 
to  work  best  set  to  -1. 


Procedures  Clicks,  Timepi,  Error; 

These  procedures  are  external  MACRO- 11  assembly  procedures  used  for 
various  game  sound  effects.  For  assembly  code  alterations,  refer  to  the  UCSD 
Pascal  User’s  Manual  (SofTech),  or  your  favorite  MACRO-11  (PDP-11  Assembly 
Language)  handbook.  Essentially,  all  the  sound  effects  are  produced  by  switching 
bit  7  of  the  VCR  (Video  Control  Register)  at  various  frequencies.  The  include 
file  SND_EFF.TEXT  is  inserted  at  the  beginnin  .  of  each  of  the  three  assembly 
procedures  and  contains  two  simple  MACRO  algorithms  for  switching  the  VCR. 

If  one  is  interested  in  creating  or  adapting  some  new  sounds,  methodical 
experimentation  with  with  these  macros  is  suggested. 

IMPORTANT:  When  linking  assembled  procedures  to  Pascal  host  pro¬ 
grams,  make  certain  that  all  file  dates  (including  the  include  files)  are  the  same. 
If  they  are  not  dated  similarly,  the  Linker  reports  a  diagnostic  such  as 
”Click2.code  not  found" 

In  addition,  all  assembled  procedures  must  NOT  be  linked  to  the  System-Library 
before  linking  to  the  Pascal  host;  the  respective  code  file  will  also  be  reported 
"Not  Found"  by  the  Linker. 


Procedure  Animate; 

This  Pascal  procedure’s  two  main  purposes  are  to  initialize  the  boolean  array 
used  for  graphics,  and  to  perform  the  opening  animation  sequence  at  the  begin¬ 
ning  of  each  program  run. 

Animate  first  initializes  the  two  global  boolean  arrays  Mini/oto  and 
Crosshairs  to  contain  their  bit-map  icons  for  the  duration  of  the  game.  Mini/oto 
contains  the  labels  "AIRCRAFT:"  and  ”%  CONFIDL  JCE"  as  well  as  the 
Confidence  ruler  "TAB  ....  0”;  CROSSHAIRS  contains  the  gun  sight  icon  that  is 
always  flashed  to  the  screen  a  split  second  before  an  actual  game  recognition 
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image  (see  procedure  Display).  Both  arrays,  Minifoto  and  Crosshairs ,  are  initial* 
ized  by  a  disk  read  from  a  FOTOFILE  indexed  ”01”  in  Infojist  to  the  Screen 
buffer,  followed  by  two  calls  to  Paintblock  copying  both  bit-map  arrays  from 
Screen. 

After  these  initializations,  the  Eagle  animation  code  follows.  The  animation 
is  the  simple  "flip-book”  approach  centered  upon  the  Eagle's  head;  it  is  accom¬ 
plished  by  a  series  of  calls  to  PaintBlock  with  an  interspersed  call  to  the  sound 
effects  procedure  TimePi.  Notice  that  each  call  to  PainiBlock  is  followed  by  a 
call  to  UnitWrite(S,  Screen,  6S )  so  that  the  screen  is  updated  for  each  animation 
"frame”. 


Procedure  Instruct; 

Instruct  is  the  first  nested  procedure  in  Practice.  Its  primary  function  is  to 
read  the  contents  of  the  file  Instruct.  Text  (the  game  Instructions)  from  the  upper 
disk  dr;ve.  You  may  notice  that  whenever  game-specific  information  is  read  into 
the  game  (such  as  reading  in  the  main  game  array  Infojist,  the  game  instruc¬ 
tions,  or  the  FotoFiles)  they  are  always  read  in  from  the  upper  disk  (#5:).  We 
implemented  this  standard  in  our  game  to  make  it  flexible  to  new  games.  Instruct 
reads  ir  one  string  at  a  time  from  the  text  file,  and  then  outputs  each  line  to  the 
screen  one  at  time.  This  type  of  implementation  prevented  us  from  having  to 
read  in  the  whole  textfile,  thus  saving  valuable  memory  space  needed  for  game 
code.  After  21  lines  have  been  projected  to  the  CRT,  no  more  lines  ere  read 
from  the  file  until  the  game  player  hits  the  <RET>  key. 


Procedure  PlayS; 

PlayS  simulates  three  game  examples  exactly  as  they  would  appear  In  the 
game.  The  variable  Listlndex  is  set  to  95,  95,  and  97  in  a  loop.  These  numbers 
correspond  to  IV  practice  game  images’  indices  in  the  main  game  array 
Info  List.  Records  90-100  in  InfoJList  have  been  reserved  for  such  purposes  as 
storing  information  pertaining  to  these  practice  game  images  and  other  system 
images  such  as  those  used  in  the  opening  Eagle  animation.  The  calls  to  Display 
and  SinglcTrial  flash  the  image  to  screen,  prompt  the  player  for  a  response,  col¬ 
lect  statistics,  and  display  the  results.  These  2  calls  are  the  very  calls  used  in  the 
actual  game  as  well.  The  additional  variable  FakeList  is  used  in  this  procedure 
to  hide  the  fact  that  list  indices  >  90  are  being  displayed.  Single^Trial  only 
expects  to  be  called  with  numbers  less  than  90,  the  total  amount  that  can  be 
used  in  a  game.  Throughout  the  Practice  module,  FakeList  is  set  between  1  and 
6,  so  that  statistics  can  tabulated  for  six  examples.  These  "fake”  statistics  stored 
in  the  scoresfile  are  overwritten  during  the  first  6  loops  through  SingleTrial  dur¬ 
ing  the  actual  game  (see  Procedure  Game2 ). 
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Procedure  Answer  (VAR  Al:  string;  X,  Conf:  integer); 

This  procedure  is  used  in  looping  through  the  3  automated  examples  in 
Practice ;  it  attempts  to  simulate  SingleTrial  by  displaying  prompts,  collecting 
statistics,  and  displaying  results.  In  addition  to  this,  Answer  also  simulates  a 
player,  by  supplying  the  responses  (Al)  as  well.  X  Is  the  number  of  characters  in 
the  string  Al;  between  each  character  being  output  to  the  CRT,  Clicks  Is  called 
to  simulate  the  sound  of  the  keyboard.  Conf  is  the  confidence  Integer  to  be 
recorded  in  the  statistics. 


Procedure  Practice;  (main  block) 

This  is  the  main  procedure  for  providing  game  players  practice  with  game 
examples;  it  makes  calls  to  the  aforementioned  procedures  which  are  nested  in 
Practice :  Instruct,  PlayS,  and,  Answer.  Notice  that  this  procedure  can  be 
immediately  exited  with  the  entry  of  a  password  from  the  standard  input,  when 
the  prompt  to  "hit  <ret>”  comes  up.  This  drops  the  program  into  a  loop  where 
a  response  of  <esc>  to  the  new  prompt  Initiates  the  game,  bypassing  instruc¬ 
tions  and  examples.  We  implemented  this  "secret”  option,  so  as  not  to  needlessly 
walk  players  who  know  the  game  sufficiently  well  through  the  instructions  and 
examples.  There  are  also  four  other  options  at  this  point.  The  user  could  type 
the  character  "H”  (upper  or  lower  case)  to  see  the  Hi-Scores  board,  "V”  to  see  the 
versions  of  the  three  game  files  (the  constants  defined  in  each  file-  Date  Mam, 
DateGameUnS,  DateltemFilerS ),  "M”  to  see  memory  available  (via  calls  to  the 
provided  function  MemAvail),  or  ”D”  to  display  any  pictures  from  the  database. 
For  this  option,  the  user  will  be  prompted  for  the  index  number  of  the  picture  to 
display.  (Note:  this  option  is  not  currently  implemented.)  This  is  all  put  into  a 
loop,  so  whenever  the  prompt  to  "hit  <ret>"  comes  up,  the  user  can  continually 
bit  the  character  options  instead.  The  loop  drops  through  when  either  the  return 
key  or  the  escape  key  is  hit. 

Notice  that  FakeList  has  been  initialized  here  before  going  through  the  0 
game  examples.  FakeList  is  used  as  a  dummy  index  so  as  to  keep  statistics  dur¬ 
ing  the  practice  run.  These  statistics  will  be  overwritten  and  forgotten  during 
the  real  game  run.  After  this  Initialization,  the  automated  examples  are  then 
created  with  3  calls  to  Display  and  Answer.  Notice  that  Indices  92,  93,  and  94 
are  used  here.  These  integers  correspond  to  the  game  example  information  stored 
in  Info_List.  PlayS,  the  participatory  examples,  is  then  called;  it  uses  Info^List 
indices  95,  96,  and  97. 


Procedure  PrivacyAct; 

For  the  instructions,  this  simply  opens  the  file  "#6:lnstruct.text"  and  reads 
one  line  at  a  time,  then  writes  that  line  to  the  screen.  Every  21  lines,  the  "write 
a  line"  loop  stops,  writes  "hit  <RETURN>",  and  waits  for  the  return  key  to  be 
hit  with  a  "readlnQ"  statement. 
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The  text  of  the  privacy  act  has  been  typed  in  to  two  fotofiles.  To  show 
these,  it  does  a  UnitRead  of  the  fotofile  from  the  disk,  and  a  UnltWrite  to  the 
screen. 


Procedure  Hello  (VAR  player:  nametype;  VAR  date:  name  type;  VAR  S3:  $$ type ); 

The  procedure  Hello  prompts  the  player  for  his  name  and  the  date,  both  of 
which  are  of  type  NameType ,  a  string  of  16  characters  in  length;  and  also  for  his 
Social  Security  Number,  of  setype ,  a  string  11  characters  long.  All  three  are 
stored  at  the  head  of  the  guns  statistics  file  GameS tats,  right  before  the  arrays 
which  store  response  latency,  correctness,  and  confidence.  The  PrivaeyAet  func¬ 
tion  is  also  called  in  Hello  and  the  prompts  to  start  playing  the  game  are  printed 
out. 


0.3.2.  Other  Procedures  in  G/.1VAN 


Procedure  Aftergame; 

This  procedure  saves  the  GameStats  file  on  the  end  of  the  Games,  data  file  on 
disk  when  the  game  is  over.  It  also  prints  out  the  player's  final  score  and  calls 
OvtpvtStots;  and  also  calls  HighScore. 


Procedure  Outputs  tale ; 

This  procedure  prints  out  hr  the  user  his/her  percentage  correct  recogni¬ 
tions,  avoragc  recognition  confidence,  and  average  response  latency. 


Procedure  Jnitetate ; 

This  procedure  Just  Initializes  all  of  the  arrays  and  variables  used  within  the 
statistics  portion  of  the  program,  invariably  to  0. 


Procedure  AfterPieture\ 

This  procedure  puts  the  player’s  response  latency,  confidence,  and  correct¬ 
ness  in  the  proper  spot  in  the  GAMESTATS  statistics  file,  and  keeps  track  of 
various  variables,  such  as  bow  many  planes  have  been  shown,  which  are  used  to 
output  statistics  to  the  player. 


Procedure  GetConfideneefVAR  con/:  integer )\ 

This  procedure  displays  the  confidence-rating  continuum  or  scale  and 
prompt  via  the  calls  to  PaintBlock,  and  a  couple  of  "write”  statements.  It  then 
reads  the  player's  response  as  a  character,  if  the  character  is  not  either  a  TAB, 
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or  ft  digit,  then  the  user  will  be  asked  to  try  again.  Once  a  valid  character  is 
entered,  it  is  converted  to  an  integer  value,  percentage  of  confidence  in  the  recog¬ 
nition  judgment.  For  TAB,  the  confidence  is  returned  as  0%.  A  zero  keyed  in 
corresponds  to  100%.  All  other  digits  are  100  times  their  value.  This  is  reflected 
in  the  recognition-response  confidence-rating  continuum. 


Procedure  Single  Trial(LiitIndez:  integer;  ifprac:  boolean )•, 

The  SingleTrial  procedure  times  the  player’s  response,  checks  the  answer  for 
correctness,  and  calls  the  appropriate  statistics  routines  to  keep  track  of  the 
player’s  scoring.  It  is  called  from  Garnet  just  after  a  picture  has  been  shown. 
The  parameter  Listlndex  is  the  index  into  InfoLiet  for  the  picture  just  shown.  It 
needs  this  to  be  able  to  look-up  Information  In  InfoLiet  about  that  particular  pic¬ 
ture.  The  other  parameter,  ifprac,  tells  the  function  whether  or  not  to  look  at 
the  practice  set  of  pictures  (starting  at  InfoList(PRACSTART]),  instead  of  the 
"rear  set  of  pictures.  This  is  needed  because  the  practice  procedures  at  the 
beginning  of  the  game  also  need  to  call  SingleTrial,  but  with  a  completely 
different  set  of  pictures. 

The  delay  loop: 

for  i 1  to  SetSpeed  do  DELAY(250); 

determines  bow  long  the  picture  will  remain  on  the  screen.  SetSpeed  is  a  con¬ 
stant,  defined  In  GameUnS.  It  allows  coarse  control  over  the  delay  amount  (the 
DELAY()  procedure  delays  for  approximately  one  one-hundredth  of  It's  parame¬ 
ter:  thus  a  change  in  SetSpeed  of  one  results  in  a  delay  change  of  about  2.5 
seconds).  When  the  delay  loop  is  throw  h,  the  page(output)  command  will  clear 
the  picture.  Then  a  prompt  is  shown,  and  the  player's  response  is  read  into  the 
string  guest.  Ticks  will  then  contain  the  number  of  "machine  ticks”*  that 
occurred  between  the  disappearance  of  the  picture,  and  the  typing  of  the  second 
key  by  the  game  player.  This  approach  was  chosen  to  in  an  attempt  to  not 
penalize  poor  typists,  yet  still  get  some  measure  of  the  player’s  response  time. 

The  calls  to  After  Picture  and  OutputState  take  care  of  updating  the  statis¬ 
tics,  and  showing  the  player  his  current  performance  information.  After  this  is 
printed  out,  the  player  is  given  a  chance  to  see  the  picture  again,  and  look  at  it 
for  as  long  as  he  wants. 

The  section  of  code  at  the  end,  currently  commented  out,  will  allow  only 
only  a  ten  second  pause  after  the  end  of  the  current  trial.  If  the  player  does  not 
type  the  <  return >  key  before  ten  seconds  are  up,  the  game  will  write  a  message 
to  the  screen  telling  the  player  to  pay  attention,  then  the  game  will  continue.  As 
it  is  now,  the  game  is  set-up  to  remain  in  a  wait-state  if  the  return  key  is  not  hit. 


•(tick t/60)  tiro**  1000  *qusl*  th«  tim*  Id  milllMeond*. 


Procedure  Gamcfh, 

This  procedure  is  called  Garnet  for  traditional  reasons  (once  upon  a  time 
there  was  a  Gamel...  ).  As  mentioned  earlier,  this  is  the  major  game-playing 
loop  in  the  program.  It  loops  from  1  to  TotalPictures ,  a  variable  set  in  the  main 
program  body.  In  our  implementation,  we  set  it  to  42,  so  we  always  get  a  game 
of  42  trials.  The  loop  counter  is  used  to  index  into  PieSequence ,  a  previously 
loaded  array  of  integers  which  are  in  turn  passed  one  at  a  time  to  SingleTrial  and 
used  as  indices  into  InfoList.  These  integers  are  unique,  range  from  1  to  the 
highest  possible  game  picture,  and  have  been  chosen  and  shuffled  in  main. 


7.  The  File  GameUnS 

The  file  GameUnS  serves  as  a  home  to  many  of  the  assorted  functions 
needed  for  the  program.  It  is  not  a  cohesive  module  in  the  software  engineering 
sense.  Only  ItcmFilerS  approaches  that. 

7.1.  Constants 

The  same  comments  about  the  constants  in  Gj .Ivan  hold  here,  also. 


DatcGamcUnS  :  This  is  a  string  telling  when  the  file  was  last  updated. 

See  t  he  constant  DateMain  in  the  section  G/  Ivan. 


Max  In  t  : 


SetSpeed  : 


This  represents  the  largest  positive  integer  that  the 
Terak  can  hold.  This  is  why  there  is  a  limit  to  the 
reported  latency  of  Maxlnt  milliseconds,  or  about 
thirty-two  seconds. 

This  is  used  to  roughly  effect  the  amount  of  time  each 
picture  is  shown.  A  larger  number  will  show  the  pic¬ 
ture  for  a  longer  amount  of  time.  It  is  used  in  Stngle- 
Trtal. 


ChooseGame,  AH^In^One,  FlashGame  : 

These  are  all  booleans  which  are  supposed  to  allow 
different  game  setups.  At  this  time,  none  of  this  is 
implemented. 


7.2.  Procedures  in  GameUn3 

Procedure  Randomize(VAR  seed:  integer); 

This  is  an  external  function,  found  in  the  supplied  System. Library,  which 
fills  the  integer  seed  with  a  number  derived  from  the  system  clock. 


Function  Random(VAR  seed:  integer;  Low,  High:  integer):  integer; 

This  random  function  returns  an  integer  between  (and  including)  the  two 
bounds  Low  and  High,  and  changes  seed  as  well.  This  function  is  derived  from 
information  given  in  the  book  "Fortran  77  -  Principles  of  Programming”  by  Jer- 
rold  L.  Wagener,  in  chapter  8.  Random  has  a  period  of  1024  (meaning  the 
sequence  of  numbers  generated  will  not  repeat  until  1024  calls  have  been  made), 
and  is  designed  for  a  machine  with  16  bit  integers. 

The  procedure  was  tested  for  approximating  random  selections  by  choosing  7 
items  from  a  possible  14.  The  results  were  tabulated,  and  the  selection  was  done 
repeatedly.  This  test  was  done  10,000  times.  The  results  follow: 


These  findings  indicated  that  the  pseudorandom  number  generator  did 
indeed  approximate  random  selections.  The  expectation  of  each  item 
number  for  10,000  trials  is  5,000  which  was  approached  by  how  many  times 
each  item  number  was  chosen  by  the  generator. 

Procedure  ShufflefVAR  IndexArray:  IndexList;  Num^oJ^Pies:  integer); 

The  input  reference  parameter  IndexArray  is  a  set  of  indices  into  InfoList , 
previously  chosen,  but  not  necessarily  in  a  mixed  order.  Shuffle  will  randomly 
choose  200  pairs  of  indices  into  IndexArray,  and  then  exchange  their  contents. 
After  Shuffle  is  called,  sequential  accesses  into  IndexArray  will  yield  a  random 
sequence  of  the  original  set  of  numbers. 

Procedure  MakeSequence(VAR  IndexArray:  IndexList;  Num_oJ_Pics:  integer)-, 

This  procedure  is  not  currently  used  in  our  set  up,  but  is  more  general  than 
the  procedure  we  use  to  make  a  game  sequence  ( ChoosePlanes ).  After  a  call  to 
MakeSequenctf),  the  parameter  passed  in  as  IndexArray  will  contain  a  random 
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sequence  of  integers  from  1  to  whatever  was  passed  into  the  second  parameter 
(Num_of^Piea),  each  integer  appearing  once.  This  is  useful  for  games  where  one 
game  consists  of  each  and  every  picture  showing  up  once  and  only  once.  MaktSt - 
qutnct  calls  Shuffle  to  actually  do  the  mixing. 

Procedure  ChooaePlanea(V AR  IndtxArray:  IndexLiat;  N*m_of_Pica:  integer); 

This  is  a  more  complicated  procedure  for  comparing  a  set  of  silhouettes  or 
pictures  for  an  instance  of  a  game.  For  Flasb-Ivaaf  we  had  a  total  of  14  Soviet 
aircraft,  each  with  a  top,  a  side,  and  a  front  view.  For  each  of  the  total  42  (14 
times  3)  Soviet  pictures,  we  also  had  a  corresponding  NATO  picture.  We  chose 
this  picture  to  look  as  similar  to  the  Soviet  one  as  possible,  to  act  as  a  ”dis trac¬ 
tor”. 

We  wanted  this  game  to  show  42  silhouettes  in  an  unpredictable  order. 
These  42  images  should  include  equal  numbers  of  fronts,  sides,  and  tops,  and 
equal  numbers  of  Soviet  and  Non-Soviet  aircraft.  Further,  for  each  Soviet 
silhouette  shown,  its  matching  distractor  should  also  be  shown  sometime  during 
the  game. 

ChooaePlanta  relies  on  a  special  ordering  of  Info_Liat  (corresponding  to  the 
ordering  in  the  database).  There  should  be  14  Soviet  planes  of  one  view  (items  1 
through  14),  then  the  14  distractors  for  those  pictures  in  the  same  order  (15 
through  20),  then  14  Sor  !*•♦.  planes  of  another  view,  etc.  This  makes  the  relation 
between  any  picture  and  its  distractor  very  simple.  Just  add  14. 

ChooaePlanta  has  three  sections.  Each  section  chooses  the  fourteen  pictures 
for  one  view.  The  sections  are  the  same,  except  that  different  bounds  are  passed 
to  random  o  reflect  the  new  set  of  pictures  to  choose  from,  and  each  section  fills 
a  different  piece  of  the  array  parameter  IndtxArray.  Each  section  Itself  is  a 
seven-iteration  "for”  loop.  Each  Iteration  chooses  two  pictures:  a  Soviet  and  a 
distractor.  The  Soviet  picture  is  chosen  by  the  random  procedure  in  the  specified 
bounds,  then  the  distractor  is  found  by  adding  fourteen.  These  two  numbers  are 
stored  in  IndtxArray  at  consecutive  locations. 

One  possible  problem  is  that  the  random  function  could  happen  to  return  a 
number  that  it  has  already  chosen.  To  take  care  of  this,  we  declare  a  set  of 
integers,  AlrcadyChoaen,  which  is  checked  each  time  a  new  number  is  generated. 
If  the  new  number  is  not  in  the  set,  then  it  is  put  into  the  set  and  the  procedure 
goes  on  as  described  above.  If  the  new  number  is  in  the  set,  then  a  loop  is 
started.  This  loop  generates  a  new  number  in  the  same  bounds,  and  checks 
again.  It  continues  until  it  finds  a  number  not  yet  chosen.  Although  this  method 
has  the  possibility  (very  slim)  of  continually  choosing  numbers  already  chosen 
forever,  it  was  found  that  the  time  it  actually  took  was  never  noticeable. 


Procedure  UpperCase(VAR  Namel:  string); 

This  procedure  checks  each  character  of  Namcl  and,  if  it  is  a  lower-case 
alphabetic  character  (V  through  V)  it  converts  It  to  its  upper-case  representa¬ 
tion  by  subtracting  decimal  32  from  its  ordinal  value.  This  procedure  works 
assuming  an  ASCII  character  set. 


Function  Comparc(VAR  first,  second:  string):  boolean; 

This  function  converts  the  two  input  strings  to  upper-case,  then  compares 
them,  returning  true  if  they  are  the  same,  false  otherwise.  The  caller  of  this 
function  should  note  that  the  strings  are  passed  by  reference,  so  they  will  be  per¬ 
manently  capitalized. 


Procedure  NewLinee(count:  integer f, 

This  simple  procedure  iterates  a  loop  count  times,  calling  a  writeln  each  time 
to  print  out  a  new  blank  line. 


Procedure  ModWait(seed:  integer); 

This  function  is  used  to  give  a  pseudo-random  short  delay.  The  input 
integer  seed,  presumably  something  fror.  a  random  generator,  is  put  into  the 
range  0  to  200  with  a  call  to  mod,  f this  is  the  reason  for  the  function’s  name), 
and  then  a  do-nothing  for  loop  is  erccuted  as  many  times  as  the  result  to  give  the 
short  delay.  One  use  of  this  is  when  we  need  to  get  two  random  numbers  at  the 
same  time.  The  first  call  to  random  will  read  the  system  clock,  and  since  the  call 
takes  a  constant  amount  of  time,  the  next  call  to  random  will  always  return  a 
number  with  the  same  relation  to  the  first.  If  we  call  ModWait(seed)  in  between, 
then  the  first  number  will  have  some  sort  of  randomizing  effect  on  the  choosing  of 
the  second  one. 


Function  ListLcngth(List:  IList):  integer; 

This  function  finds  the  length  of  a  partially  or  fully  filled  variable  of  type 
IList.  It  simply  steps  through  the  list  until  it  finds  an  entry  where  the  name  field 
has  either  "none^S",  NONE123”,  or  Nonel23”.  This  is  our  pre- defined  stopper 
value,  and  Is  put  into  the  database. 


Procedure  BuildStringfVAR  Finalstring:  string;  NewChar:  char); 

This  procedure  is  used  to  build  up  a  string  one  character  at  a  time.  It  is 
used  in  TimeRead,  where  we  have  to  convert  a  stream  of  incoming  variables  of 
type  char  to  one  string.  It  is  called  once  for  each  new  character.  The  string 
being  built  is  passed  into  FinalString,  and  the  new  character  to  be  appended  to 
the  end  is  passed  into  NewChar.  This  procedure  allows  the  backspace  key  to  be 
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used  as  normal.  It  will  delete  one  character  off  the  end,  and  will  write  out  the 
backspace  to  the  screen. 


Function  TimeReadfVAR  result:  string):  integer, 

This  is  used  to  simulate  a  Pascal  readln,  to  be  used  where  some  indication  of 
the  player’s  response  time  is  needed.  TimeRead  reads  input  as  a  stream  of  char* 
acters,  passing  them  one  at  a  time  to  BuUdString  with  parameter  result  This 
means  that  at  the  end  of  execution  of  TimeRead,  the  reference  parameter  result 
will  contain  the  entire  string. 

When  TimeRead  is  first  called,  the  internal  clock  is  read  with  a  call  to  the 
library  function  Time.  At  EOLN  (end  of  line),  or  after  two  characters  have  been 
typed,  the  time  is  again  read.  The  difference  LowStop  -  LowStart  is  the  number 
of  clock-ticks  it  took  to  type  two  characters,  or  to  type  the  Return  key.  The 
high-order  bits  of  the  clock,  HighStart  and  HighStop  are  ignored  here. 

It  was  found  that  once  in  a  while  the  clock  would  start  high,  count  to  Max- 
Int,  and  start  at  negative  Maxlnt  before  being  read  again.  This  is  checked  for 
and  taken  care  of  by  the  last  if-clse  statement. 


Procedure  Remove  Blanks  (VAR  string!:  siring ); 

If  the  string  parameter  stringl  has  any  trailing  bla:.'  or  return  characters, 
they  will  be  removed  by  this  function.  White-  spa«v  not  a',  the  end  of  stringl 
will  not  be  removed. 


Procedure  StripfVAR  stringl :  string); 

This  removes  all  non  alpha-numeric  characters  from  stringl. 


Function  ChcckAnswcr(VAR  answer:  string;  Possibles:  NewRee):  boolean; 

A  NcwRcc,  declared  in  the  file  ItemFilerS,  is  a  record  of  one  database  ele¬ 
ment,  or  one  element  in  the  InfoList.  Among  other  things,  it  contains  an  array 
field  called  NewRee. names.  Each  element  of  this  array  is  a  possible  correct 
answer  for  the  particular  item  associated  with  NewRee.  CheekAnswer  capitalizes 
both  the  string-to-be-checked  answer,  and  the  possible  names  found  in  Possibles. 
All  non-alphanumeric  characters  are  also  removed.  If  answer  matches  any  one  of 
the  names  found  in  Possibles  or  a  concatenation  of  the  two  names  in  either  order, 
then  CheekAnswer  returns  true,  otherwise  false. 
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8.  The  File  ItemFiler3 


ItemfilerS  is  another  game  module  (unit  in  UCSD  Pascal)  that  is  linked  with 
the  main  game  program  Gf  .IVAN.  ItemfilerS  contains  procedures  and  variable 
declarations  that  are  vital  to  running  of  the  game.  In  a  nutshell,  the  primary  role 
of  ItemfilerS  is  to  interface  between  the  game  program  and  the  upper  disk  drive 
which  contains  games  images  and  information  vital  to  the  game.  It  also  has 
made  variable  declarations  that  are  globally  accessible  to  Gf  .IVAN.  These  vari¬ 
ables  most  generally  have  to  do  with  the  uynamics  of  graphics  manipulations  in 
the  game. 

IMPORTANT  NOTE:  This  module  is  highly  DEVICE  DEPENDENT  since  the 
many  graphics  procedures  and  variables  defined  here  are  designed  specifically  Jot 
use  on  the  TERAK.  If  you  plan  on  transferring  FLASH  IVAN  to  another 
machine,  it  is  likely  that  most  oj  the  alterations  in  the  FLASH  IVAN  game  code 
will  most  likely  occur  in  this  module.  Because  ITEMFILERS  is  highly  susceptible 
to  future  alterations,  we  have  described  variables  and  procedures  in  greater  depth 
than  we  have  elsewhere. 


8.1.  Important  Constants 

MAXINDEX  =  100 : 

MAX3NDEX  indicates  the  upper  bound  '•f  the  array 
INFO_LIST  described  below. 

MAXNAMES  =  S : 

MAXNAMES  sets  the  array  in  the  record  defined  below  to  a 
range  of  3. 


8.2.  Important  Global  Variables 

INFOJLIST  :  This  is  an  array  of  records,  each  of  which  has  a  one  to  one 
correspondence  to  an  image  in  the  game.  Although  explained 
briefly  in  the  GAMEUN3  module,  we  go  into  greater  detail  here 
since  this  is  where  it  has  been  originally  declared.  Each  record 
is  structured  as  follows: 

type  NEWREC  =  packed  record 

NAMES:  packed  arrayfl.. MAXNAMES)  of  strl5; 

BLOCK:  integer ; 

FULLSCREEN:  boolean ; 

TOPTHIRD:  boolean; 

MIDTHIRD:  boolean; 
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BOTTHIRD:  boolean', 

end; 

Note  MAXNAMES  equals  3;  Namesflj  and  NameefSj  hold  the 
game  names  (up  to  15  characters)  of  a  particular  image. 
Namce[8j  holds  the  fotofile  name  on  which  the  image  is  located. 
BLOCK  is  the  block  number  which  corresponds  to  the  fotofile 
name;  after  an  image  directory  has  been  created  its  fotofile 
block  location  on  the  upper  disk  is  automatically  stored  in 
BLOCK.  By  accessing  a  fotofile  be  BLOCK  number  using  UNI¬ 
TREAD  a  game  image  can  be  accessed  3  to  4  times  faster  than 
if  it  were  accessed  by  name  using  the  usual  Pascal  file  I/O.  This 
makes  for  a  faster,  more  interesting  game.  The  remaining  fields 
in  the  record,  FullScreen,  TopThird,  MidThird,  and  BotThird  are 
set  to  TRUE  or  FALSE  depending  upon  which  part  of  a  fotofile 
an  image  is  located.  These  fields  enable  the  game  creator  the 
option  of  putting  up  to  3  images  on  fotofile,  thus  saving  disk 
space.  Record  indices  (in  INFOJL1ST)  90-100  have  been  set 
aside  for  gaming  system  images  such  as  the  opening  Eagle  ani¬ 
mation.  Record  indices  1-89  are  reserved  specifically  for  the 
actual  game  images  (of  Aircraft  in  the  prototype  game). 


CROSSHAIRS  :  is  of  type  packed  array (0..59.0..59]  of  boolean.  It  is  a  graphics 
buffer  which  holds  the  targetor  icon  which  is  flashed  to  the 
screen  just  before  a  game  image  is  flashed  to  the  screen. 

SMALLSC  :  is  a  packed  array [0. .2835 lj  of  boolean  used  as  a  graphics  buffer 

which  is  roughly  the  size  of  one  third  the  screen.  This  buffer  is 
used  in  the  instance  of  a  game  image  stored  on  a  specific  third 
of  a  fotofile  which  must  be  flashed  to  the  screen.  SMALLSC  is 
actually  larger  than  a  third  of  a  screen  of  bits  (80  X  320) 
because  it  needs  to  accommodate  a  UNITREAD  call  which  uses 
a  BLOCK  type  format  in  reading  information  from  disk.  Thus 
the  size  of  SMALLSC  is  exactly  7  blocks  long  (28352  bits).  It  is 
stored  in  a  one  dimensional  array  for  the  sake  of  convenience 
and  clear  understanding.  When  an  image  is  read  into 
SMALLSC ,  it  is  read  in  as  a  linear  string  of  bytes.  In  addition 
to  this  complication,  the  very  beginning  of  a  thirdscreen  image 
won’t  always  begin  at  the  beginning  of  the  buffer  SMALLSC, 
s’nce  UNITREAD  which  begins  reading  from  a  Block  number 
cannot  always  start  reading  from  an  exact  bit  location  where  an 
image’s  string  of  bytes  begins  on  disk.  In  the  case  of  a  TopThird 
image,  there  is  no  problem  in  this  case,  since  its  Block  number 
corresponds  exactly  to  its  starting  bit  location.  However,  in  the 
instance  of  MidThird  or  BotThird  images  whose  starting  bit 
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locations  do  not  exactly  correpond  to  a  BLOCK  number  on  disk, 
they  are  UNITREAD  from  a  block  number  before  their  starting 
position.  Although  they  easily  fit  into  the  oversized  SMALLSC 
buffer,  they  do  not  begin  at  the  beginning  of  SMALLSC.  By 
keeping  SMALLSC  one-dimensional,  offsets  to  the  beginning  of 
an  image  in  SMALLSC  are  made  easy  to  calculate. 

SCREEN  :  is  a  packed  ar ray [0.. 239,0.. 310]  of  boolean;  SCREEN  acts  as  a 

graphics  buffer  with  each  boolean  element  mapping  to  a  particu¬ 
lar  pixel  on  the  TERAK  screen.  If  a  game  image  is  of  type 
FuUScreen ,  it  is  read  directly  into  SCREEN.  If  not,  the  game 
image  is  first  read  into  SMALLSC  and  then  bitmapped  and  cen¬ 
tered  on  SCREEN.  Whatever  SCREEN  contains  can  be  pro¬ 
jected  to  the  screen  with  the  command 
UnitWritefS, SCREEN, 6S).  SCREEN  can  be  removed  from  the 
screen  using  the  command  UnitWritefS,  SCREEN,  7)  or 

Page(OUTPUT). 

CLOCK _1NT :  is  a  case  variant  record  which  is  used  in  procedure  PAUSE. 

HI^LIST  :  is  an  array  of  ten  records  containing  the  names  and  scores  of  the 

ten  top  scoring  players.  This  information  js  read  in  from  the 
upperdisk  (the  images  disk)  into  this  array  and  compared  to  the 
score  of  the  current  player  at  the  end  of  each  game.  If  the 
current  player’s  score  is  within  this  range  of  scores,  a  new 
HI^LIST  is  created  with  his  name  and  score  inserted  in  the 
appropriate  spot  and  written  back  to  disk.  See  procedure 
HISCORE. 


8.3.  Procedures  in  ItemFilerS 


Procedure  DelayfN :  integer); 

Delay  is  a  simple  procedure  used  to  create  time  delays.  A  FOR  loop  is  sim¬ 
ply  executed  N  times.  It  is  estimated  that  the  number  of  seconds  of  delay  is 
equal  to  N  /  100.  So  for  example  Delay(400)  will  simulate  a  4  second  delay. 


Procedure  FromDiakfVar  Iljlist  :  IL1ST;  Ijname  :  $trl5); 

FromDisk  reads  the  image  directory  (in  the  case  of  our  game, 
”#6:NEWNAMES”)  from  the  upper  disk  Into  the  array  INFO _LIST. 


Procedure  DisplayfN :  integer); 

Display  will  display  the  Mh  image  in  the  array  INFO^LIST  on  the  TERAK 
screen  and  leaves  it  there.  It  is  up  to  calling  program  to  remove  it  from  the 
screen;  we  reasoned  that  this  implementation  gives  the  calling  program  more,  free¬ 
dom  as  to  how  long  the  image  is  to  be  displayed.  Display  is  very  much  device 
dependent,  i.e.  it  is  designed  to  run  specifically  on  the  TTSRAK.  This  is  also  true 
for  the  entire  ITEMFILER3  module.  If  you  plan  on  transferring  FLASH  IVAN 
onto  a  machine  other  than  the  TERAK,  Display  is  the  procedure  that  will  more 
than  likely  need  revamping.  Because  of  this  procedure’s  importance,  we  have 
outlined  it  in  greater  detail  than  we  have  other  routines: 


-will  first  clear  the  screen 

-then  load  the  screen  buffer  SCREEN  with  on  bits 

-then  bitmap  CROSSHAIRS  onto  SCREEN 

-then  turn  on  SCREEN 

-for  a  second 

-then  turn  off  screen 

-then  will  read  the  FOTOFILE  that  the  image  is 

—  on  from  disk 

-IF  FULLSCREEN  =  TRUE  reads  directly  to  SCREEN 
-ELSE  reads  to  SMALLSC 

—  and  then  offset  and  bitmapped  to  SCREEN 
--  then  the  image  is  projected  to  the  screen 


PAGE(  OUTPUT ) 

FILLCHAR(...) 

PAINTBLOCK(...) 

UNITWRITE(...) 

DELAY(200) 

UNITWRITE(...) 

UNITREAD(...) 


Function  Pause  :  boolean; 

Pause  is  currently  not  used  in  the  game  and  is  therefore  commented  out.  Its 
function  is  to  wait  at  most  10  seconds  for  a  user  response.  If  a  user  responds 
within  10  seconds,  control  is  immediatedly  returned  to  the  calling  program  and 
Pause  returns  FALSE.  If  a  user  hasn’t  responded  within  10  seconds,  Pause 
returns  TRUE. 

Note  :  uses  the  case  variant  record  Clock^Int  described  above 


Procedure  HiScore; 

First,  reads  in  top  ten  scores  from  file  ”#5:HISCORE.DATA’’  (on  upper 
disk)  and  stores  them  in  array  Hi^List.  Next,  Displays  HiScore  graphic  on  the 
screen  (Info^ListflOOf).  Next,  inserts  and  sorts  current  score  SCORE  with  scores 
in  HiJList;  then  outputs  Hi_List  array  to  the  screen,  and  finally  writes  the 
modified  Hi_List  back  to  disk. 


PROGRAM  MAINTENANCE 


0.  The  Disks 

The  Flash  Ivan  Gaining  System  consists  of  three  essential  disks: 


1.  '  The  Game  Code  Disk 

2.  The  Images  Disk 

3.  The  Administration  Disk 


—  goes  in  bottom  disk  drive 

—  holds  the  game  code 

—  holds  the  stats  file 

—  goes  in  the  upper  disk  drive 

—  holds  game  specific  information: 

Fotofiles, 

the  image  directory, 
instructions, 

and  the  HJSCORE.DA  TA  file 
goes  in  the  bottom  disk  drive 
operating  on  either  of  the 
other  two  disks  in  the  top  drive 

—  used  to  make  a  new  game 

and  to  access  and  format  game  stats 


10.  Organization 

With  so  many  different  disks  floating  around,  some  on  the  test  site  and  some 
being  used  to  make  game  enhancements,  we  have  realized  the  necessity  for  tight 
organization  among  us.  As  we  have  worked  on  the  program,  we  have  adopted 
three  important  conventions  to  better  organize  ourselves.  Firstly,  we  have  chosen 
the  following  naming  system: 

"TOMCAT” [n]  corresponding  to  game  code  disks 
”IVAN_UP”  [n]  corresponding  to  images  disks 
"ADM”  corresponding  to  the  administration  disk 

where  n  represents  a  number.  Secondly,  we  keep  an  exacting  written  record  of 
each  disk:  the  version  of  the  game  on  it,  where  it  is,  and  other  vital  information. 
Thirdly,  we  have  designated  master  disks  holding  the  most  recent  game  enhance¬ 
ments: 

"BIGBIRD”  —  holds  most  recent  game  code 

"FOTOS1”  -  holds  the  most  recent  image  directory,  ” NEWNAMES” 

as  well  as  Fotofiles  1*30 

"FOTOS2"  -  holds  the  remainder  of  the  Fotofiles,  Instructions, 

Initial  Hiscores  file,  etc. 

We  have  made  these  conventions  for  our  own  organizational  purposes;  you  may 
or  may  not  want  to  follow  them  exactly  depending  on  your  own  tastes. 
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11.  Disk  Handling 

In  the  suggestions  that  follow,  we  separately  discuss  the  preparations  needed 
for  each  disk  in  the  FLASH  IVAN  Gaming  System  before  and  after  it  goes  to  the 
gaming  site. 

11.1.  The  Game  Code  Disk  —  Before 

The  game  code  disk  should  have  a  minimal  number  of  files  on  it  before  col¬ 
ic  c'ng  performance  data.  The  two  most  important  files  are  SYSTEM. STARTUP, 
containing  the  game  code,  and  GAMES. DATA,  storing  game  stats.  In  order  to 
accommodate  new  stats  written  to  disk  after  each  game,  the  game  code  disk 
should  be  Krunched  (see  P-System  details)  with  GAMES.DATA  as  the  last  file  on 
the  disk.  This  will  allow  the  statistics  file  to  utilize  the  remaining  disk  space  the 
most  efficiently.  Lastly,  it  should  be  checked  for  any  bad  blocks. 

11.2.  The  Game  Code  Disk  —  After 

When  a  game  code  disk  returns  from  collecting  data  at  a  testing  site,  our 
primary  interest  is  to  access  the  statistics  file  GAMES.DATA  and  then  format  it 
into  something  readable.  The  following  sequence  of  instructions  make  this  tedi¬ 
ous  task  less  burdensome: 

1.  Put  "ADM"  Disk  in  lower  disk  drive 

2.  put  game  code  disk  in  upper  disk  drive 

3.  tJ'eck  game  code  disk  for  bad  blocks 
<>  Get  list ’ ng  of  game  code  disk. 

—  How  big  is  GAMES.  DAT  At 
—  Is  it  still  the  last  file  on  disk? 

5a.  Be  sure  NEW  NAMES  is  on  ADM  disk 
5b.  Clear  ADM  disk  of  any  unnecessary  files 

—  most  notably  old  CONFIDENCE.  TEXT  and 
LATENCY.  TEXT  files 

6.  Krunch  ADM  disk 

7.  Execute  Makestats  (be  patient;  it  take.?  a  while  to  complete) 

8.  Check  to  see  if  new  CONFIDENCE.  TEXT  and 
LATENCY. TEXT  files  are  on  ADM  disk 

—  then  print  them  out 

9.  If  you  wish  to  save  these  files, 
transfer  then  to  the  STATS  disks 

10.  Erase  them  from  the  ADM  disk 

11.  Run  game  code  disk  with  image  disk  in  upper  drive 
--  selecting  the  version  option  at  the  beginning, 

see  if  the  version  is  up  to  date 

11.3.  The  Images  Disk  —  Before  and  After 

The  Images  disk  should  be  checked  for  bad  blocks,  frequently.  Since  data  is 
constantly  read  from  this  disk  during  game  time,  it  absorbs  a  lot  of  wear  and 
tear.  If  ever  you  Krunch  the  disk  or  make  any  changes  to  it  whatsoever,  it  is 
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Appendix  A:  Program  Listing 


PROGRAM  Flaahivan; 

uses  {IU  ITEMFILER3.CODE}  ItemFilerS,  {$U  GAMEUN3.CODE}  GameUnS; 
CONST 

DateMain  —  ’Nov  13,  1084...  fix  ’ANSWER”,  and  keyword  loop’; 

NAME  -  ‘GAMES .DATA’; 

PRACSTART  —  SI; 

NUMBERPICTURES  -  89; 

ORD JSC  —  27; 

TYPE 

nametype  —  string  [15]; 
sstype  —  string[ll); 
scale  —  0..100; 

gamestats  •“  record 

name  :  name  type; 

SS  :  sstype; 

date  :  name  type; 

latency  :  packed  array [l..numberpictures]  of  integer; 

confidence  :  packed  aiTay(l..numberpictures]  of  scale; 
correct  ;  packed  array[l..numberpictures]  of  boolean; 

end; 


VAR 

TotalShown.gameloop  :  integer; 

average  ,*core  .total  Jat , 
total_conf  :  real; 


scoresfile 

Minifoto 

currentgame 


:  file  of  gamestats; 

:  packed  array[0..319,0..26]  of  boolean; 
:  gamestats; 


t* . * . * . •*} 

procedure  PAlNTBLOCK(VAR  SOURCE;  SRCWED,  SRCX,  SRCY  :  INTEGER; 

VAR  DEST;  DSTWID,  DSTX,DSTY,CNTX,CNTY MODE,GRAY:INTEGER); 
EXTERNAL; 

{Assembly-language  sound  routines...} 
procedure  CLICK2;  EXTERNAL; 

procedure  TIMEPI;  EXTERNAL; 

procedure  ERROR;  EXTERNAL; 


procedure  afterpicture(rigbt:boolean;conf:integer;lat,index:integer); 
FORWARD; 

procedure  SingleTrial(ListIndex:integer;  ifprac  :  boolean); 
FORWARD; 
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procedure  OutputSt&U;  FORWARD; 

{••• . . . 


} 


SEGMENT  PROCEDURE  ANIMATE; 

VAR  XZERO.YZERO  :  INTEGER; 

BEGIN 

UNITWRITE{$ , SCREEN ,7);  {  DONT  SEND  SCREEN  TO  CRT  } 
{PAINT  IN  TO  THE  MINIFOTOS} 
UNITREAD(5, SCREEN, SIZEOF(SCREEN)4NFO_WST[8l).BLOCK); 
PAINTBLOCK(SCREEN,S20,0,0,MINIFOTO,  320,0, 0,820,  *8,0, -l); 


PAlNTBLOCK{SCREEN, 320, 0,30, CROSSHAIRS, 80, 0,0,60, 60, 0,-1); 

{  FLASH  IVAN  } 

{  PAINTBLOCK(SCREEN, 320, 0,120, SCREEN, 320, 0,130, 320, 60, 0,-1);  } 

{  TITLE  SEQUENCE  STARTS  HERE  } 

{  DISPLAY  EAGLE  } 

PAGE(OUTPUT); 

UNITREAD(5,  SCREEN,  SIZEOF(SCREEN),  INFO  J,IST{90j  .BLOCK); 

UNITWRITE(3,SCREEN  ,63); 

UNITREAD(5,SMALLSC,SIZEOF{SMALLSC),!NFO_LIST|«l]BLOCK+6); 

XZERO:-84;  YZERO:-3;  {  PLACE  IN  SMALLSC  WHERE  THIRDSCREEN  REALLY  STARTS} 

{  EAGLE  ANIMATION  I } 

PAINTBLOCK(SMALLSC,320,XZERO,YZERO+15,  SCREEN, 320, 101, 80, 100, 55, 0,-1); 
UNITWRITE(3, SCREEN  ,83); 

DELAY(50);  {  EAGLE  ANIMATION2} 

PAIN  TBLOCK(SMALLSC,320,XZERO+ 100, YZERO+ 15, SCREEN, 820, 101, 50,100,55,0,-1); 
UNITWRITE(3, SCREEN, 63); 

DELAY(50); 

{  EAGLE  ANIMATIONS) 

PAINTBLOCK(SMALLSC,320,XZERO+200,YZERO+15,  SCREEN, 320, 101, 60, 100, 65, 0,-1); 
UNITWRITE(3, SCREEN, 631; 


TIMEPI; 

{  EAGLE  ANIMATIONS) 

PAIN  TBLOCK(SMALLSC,320,XZERO+100,YZERO+18, SCREEN, 320, 101, 50, 100, 55, 0,-1); 
UNITWRITE(3,  SCREEN,  63); 

DELAY(60),  {  EAGLE  ANIMATION^ 

PAINTBLOCK(SMALLSC, 320, XZERO.YZERO-t-16, SCREEN, 320, 101, 60, 100, 65, 0,-1); 
UNITWRITE{3  .SCREEN  ,63) ; 

UNITREAD(5, SMALLSC, SIZEOF(SMALLSC),INFO_LIST[9l)BLOCK+12); 
XZERO:—128;  YZERO:— 8; 

PAINTBLOCK(SMALLSC,320,XZERO,YZERO+6, SCREEN, 820, 0,121, 820, 66, 0,-1); 
UNITWRITE(3, SCREEN  ,83); 

END; 


SEGMENT  PROCEDURE  PRACTICE 


} 

SEGMENT  PROCEDURE  PRACTICE; 


VAR 

i,  fx,  millisecs,  FakeList, 

Listlndex,  browse Jodex, 
confidence  ;  integer; 


correct  ;  boolean; 

reep  :  char; 

rop_string  :  string; 

procedure  INSTRUCT; 


Var 

IjString  :  string; 
directions  :  text; 
i  ;  integer; 

reap  :  ebsr; 

BEGIN 


page(output); 

reset(direc lions,  ^INSTRUCTTEKT’); 

while  not  EOF(directions)  do 

begin 

for  i  1  to  21  do 
begin 

if  not  EOF(directions)  then 
begin 

readln(directions,  IjString); 
writeln(IJ>tring), 
end; 
end; 

wriuln(HIT  <RETURN>’); 
resdln; 
end; 

close  (directions); 

END;  {  INSTRUCT  ) 


procedure  PLAY3; 
begin 

PAGE( OUTPUT); 

GOTOXY(29,8);  WRITE{’Be  Prepared  to  Answer’); 

OOTOXY(28,9);  WRITECthe  following  3  examples’); 

GOTOXY(  17,11);  WRITE( 'WATCH  THE  CENTER  OF  THE  SCREEN  FOR  AIRCRAFT’); 
GOTOXY(20,14);  WRITE(’Hit  <  RETURN  >  When  Ready  To  Begin’); 

READLN; 

for  Listlndex  :«■>  95  to  97  do  {  Loop  over  practice  pictures  ) 
begin 

FAKE11ST  FAKEL1ST  +  1; 
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Diaplay(Li«t  Index); 
SingleTri*l(FAKEL  1ST, true); 
page(output); 
end; 

eod;  {  PLAYS  } 


procedure  ANSWER^  VAR  A1  :  STRING;  X,  CONF_KEY  :  INTEGER  ); 
begin 

DELAY(2500);PAGE(  OUTPUT); 

GOTOXY(S2,2); 

FILLCHAR(SCR£EN,SIZEOF(SCREEN),0); 

{  AIRCRAFT  } 

PAINTBLOCK(MINIFOTO, 320, 0,0, SCREEN, 320, 0,22, 121, 6, 0,-1); 
UNITWRITE{S, SCREEN, 63); 

DELAY(2000); 

FOR  I 1  TO  X  DO  {  AUTOMATE  RESPONSE  TO  PROMPT  } 
BEGIN 

CLICK2;CLICK2;  WRITE{AlII)); 

DELAY(70);  CL1CK2;CLICK2;  DEL  A  Y(  30); 

END; 

DELAY(1500); 

{  CONFIDENCE  RULER  } 

GOTOXY(2  5);  WRITE{ 'LEAST'), 

OOTOXY(0,5);  WRITE{ ’CONFIDENT’); 

GOTOXY(73,6);  WRITECMOST’); 

GOTOXY(70,8);  WRITE{ ’CONFIDENT’), 

PAINTBLOCK(M1NFOTO, 320, 0,6,  SCREEN, 320, 0,75, *20, 20, 0,-1); 
UNITWRITE(3 , SCREEN  ,83 ); 

{  GIVE  CONFIDENCE  PROMPT) 
PAlNTBLOCK(MINIFOTO, 320,125,0, SCREEN, 320, 0,111, 136, 6, 0,-1); 
UNITWRITE(3,  SCREEN,  63); 

G0T0XY(32,1J); 

DELAY(3000); 

CLICK2;CLICK2; 

WRITE{CONF_KEY); 

DELAY(IOO); 

CLICK2;CLICK2; 

DELAY(600); 

WRITELN; 

(••••••••••*  Simlulatee  SingleTrial  •••••••*•••) 

FAKELIST  FAKELIST  +  1; 
milUeece  1656; 
correct  ;■  TRUE; 

if  (confjcey  ™  0)  then  confidence  100 
eUe  confidence  eonfjcey  *  10; 


ToUlShown  TotaiShown  +  1; 
flaehacore  :-»  fltehecore  +  1; 

gotcory(0,14); 

writelndlECOONITION  CORRECT.’); 
writeln(’Reeponee  Time  ■»  ’,millieece/1000:4:2,’  eeconde’); 
nfterpicture(correct,  confidence,  millieeci, FAKELIST); 
flaehtota]  flaah  total  +  1; 


OutputS  tata; 
writeln; 

write(’  <  Hit  RETURN  for  next  Aircraft  >  ’); 

READLN; 

PAGE(OUTPUT); 

END  { ANSWER  }; 


{  —  —  —  . . -  Driver  for  PRACTICE  . } 

BEGIN  {  PRACTICE  } 
gotoXY(26,5); 

writefTOT  RETURN  TO  BEGIN  GAME’); 

rap_ptring 

reap  V; 

raet(key  board); 

readln(reap_string) ; 

if  (respjstring  ’boatman’)  then 
begin 

{  while  not  <ret>,  <apace>,  or  <esc>...  (UCSD  Pascal  returns  the  same 
character  for  <ret>  and  <space>)  } 

while  ((reap  <  >  chr(32))  and  (reap  <  >  chr(2?)))  do 
begin 

case  ord(resp)  of 

( . 

100,  68  {’d’,  ’D’  ...display  a  picture}  : 
begin 

page(output); 

writelnCWhat  picture  do  you  want  to  aeeT  (give  index  number)  ’); 
readln(browsejndex); 

if  ((browse_index  >  0)  and  (  Diaplay(browse_jndex); 

writeln(infoJi8t[browteJndex].Namea(i]); 
writeln(info_)ist|browseJndex].Names[2)); 
end 
else 

writeln( Invalid  index  number.  ’); 
end; 

. ) 

104,  72  {V,  ’H’  ...show  the  High  Scores)  : 
begin 

page(output); 

HiScore(”,  0); 
end; 

108,  77  {’m\  ’M’  ...call  memavai]()  }  : 

begin 

page(output); 

write{’The  memory  available  in  segment  procedure  Practice  is  ’); 
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*.'W  V  *.*  *.** 


writeln(memavail,  ’  words. ’); 
end; 

118,  86  {V,  rV’  ...show  the  current  dates  of  the  game  files}  : 
begin 

page(output); 

writeln('G/.Ivan  version  of  DateMain); 
writeln(’ItemFiler3  version  of  DateltemFilerS); 
writeln(’GameUn3  version  of  DateGameUnS); 
end; 

end;  {  ...of  case...  } 
writeln; 

write  (Hit  <ret>  to  go  on  ’); 
read(resp); 

end  {  ...while...  }; 

end  {  ...if  not  keyword...  }; 


if  (reap  <  >  chr(27))  then  {  not  an  <esc  > ,  so  show  all  instructions...  } 
begin 

INSTRUCT; 

PAGE( OUTPUT); 

GOTOX*(27,7);  WRITE(’Be  Prepared  to  Observe’); 

GC'’OXY(25  8);  WRITE(’3  Automated  Game  Examples’); 
G3.OXY(25,10);  WRITE(’Hit  < RETURN >  to  Continue.’); 

REA  jLN; 

confidence  :=  0, 

FAKELIST  :=  0; 

DISPLAY(92); 

ANSWER(INFO  JLIST|92)  .NAMESJ2]  ,4,0); 

D1SPLAY(93); 

ANSWER(INFO  JLIST[93|  .NAMES  [2] ,  1 3,0); 

DISPLAY(94); 

ANSWER(INFO  JLIST[94) .  NAMES  [2] ,  5 , 1 ) ; 

PLAY3; 

end; 

END;  {  FRONT  END  } 


{ . * . * . * . . . * . * . 

SEGMENT  PROCEDURE  HELLO  composed  of  the  following: 


Shows  the  player  the  "privacy  act"  (text  written  into  a  fotofile),  gets 


the  player’s  name  (making  sure  it  is  IS  characters  or  less),  get*  tbe 
Social  Security  #  (and  makes  sure  it  is  11  characters  or  less),  and  gets 
the  date.  It  then  shows  it’s  results  to  the  player,  allowing  changes. 


SEGMENT  procedure  HELLO(var  player:naroetype;var  date:{date)nametype; 
var  SS:setype); 

var  str :  string; 
reap :  char; 
socsec  :  name  type; 


procedure  getdate(var  date-  (date)nametype); 
var 

str  :  string; 
begin 
str 

repeat 

if  length(str)  >  0  then  wnteln(’DATE  IS  TOO  LONG  ’); 
WRITER  DATE  (  Day,  Month,  Year  )  :  ’); 
readln(str); 

until  ((length(str)>0)  and  (length(str)<10)); 
date  str; 
end; 


begin  (of  Hello-  main  bod> 

PAGE(OUTPUT); 

UNITREAD(5, SCREEN  ,Si:'.EOF(SCREEN ), INFO  J-IST|W)  .BLOCK); 
UNlTWRITE(3,SCREENt83); 

GOTOXY(0,30); 

WRITELN(’Hit  < RETURN >  for  next  page.’); 

READ(RESP); 

PAGE(OUTPUT); 

UNITREAD(5, SCREEN  ,SIZEOF(SCREEN),INFO_LIST[W].BLOCK); 
UNITWRITE(3, SCREEN, 63); 

GOTOXY(0,30); 

WRITE(’HIT  < RETURN  >  WHEN  DONE.’); 

READ(RESP); 

repeat 

page(output); 
str  ”; 

repeat 

if  length(str)  >  0  then 

writeln(’Tbe  name  is  too  long.  It  must  be  15  characters  or  less.  ’); 

write(’NAME  (Last  name,  first  initial,  middle  initial)  :’); 
readln(str); 

until  ((length(str)>0)  and  (lengtb(str)<16)); 


if  length(str)  >  0  then  writeln(’Socia)  security  number  is  too  long.'); 
write( ’SOCIAL  SECURITY  # 
readln(str); 

until  ((!ength(str)>0)  end  (length(str)  <12)); 

SS  :-elr; 

GetDate(date); 
writ«ln;{  writeln;) 
writeln(’  b  this  correct?  :'); 
writeln; 

writeln(’NAME  :  \player); 

writelnf’S.S.  NUMBER  :  \SS); 

wri  tel  n(  DATE  :  ’.date  {. day, ’-\date. month, ’-I8\date.year}); 

writeln; 

writef’b  this  correct?  [y  or  n]  ’); 
reed  (rasp); 
until  (resp  in  ('y',  rY')); 

PAGE(OUTPUT); 

GOTOXY(2fl,7);  WRITE(’Are  You  Resdy  to  PUy’); 

OOTOXY($2,8);WRITE(TLASH  IVAN  ?!’); 

GOTOXY(24, 10);WRITE( 'If  So,  Then  Hit  < RETURN 

GOTOXY(17,12);  WRITE( 'WATCH  THE  CENTER  OF  THE  SCREEN  FOR  AIRCRAFT’); 

GOTOXY(33,15);  WRITE(’Good  Luck!!!’); 

READLN; 

end; 


PROCEDURE  AFTERGAME  is  run  after  every  game  and  records  the  player’s  game  to 
the  disk  under  the  Ale  name  "NAME”  (Games. data).  This  is  a  Ale  of  type 
gamestate.  ^ 

procedure  aftergame; 
var  iecore  :  integer; 
begin 

iecore  :«■  trunc(score); 

page(output); 

gotoxy(O.A); 

write(’  YOUR  FINAL  SCORE  :  ’, iecore  :6,’  pU».’); 

gotoxy(0,l5); 

writelnC  YOUR  FINAL  RESULTS:’); 

writeln; 

Outputs  tats; 
writeln; 

write(’  Hit  <  RETURN  >  for  HLSCORES’); 

readln; 

HISCORE{currentgeme.  name,  iecore); 
reset(te©resA!e,NAME); 

repeat 

get(scoresAle); 
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rvy.wnrv-»wvv-r'.: 


li  i i 


until  eof(scoresfile); 


scoreafile"  :■»  eurrentgame; 
put(  scoreafile); 
close  (scoreafile, lock); 
end; 


{ . 

procedure  Outputs  late*  outputs  statistical  data  concerning  game  performance 

in  PERCENTAGE  CORRECT,  AVERAGE  CONFIDENCE,  and 
AVERAGE  LATENCY; 

. } 

procedure  OuiputStau;  (*  Output  to  the  User  •) 

begin 

(GOTOXY(32,16); } 

writeln(TERCENT  CORRECT  RECOGNITIONS  :  ’:B6, 

round( average),  ’  /  ’,  TotalShown,  ’  ’,  100»average  /  TotalShown:5:l,’%'); 

(GOTOXY(32,17);} 

writeln(’AVERAGE  RECOGNITION  CONFIDENCE  :  *:66, 
total_conf  /  TotalShowntBil,^’); 

(GOTOXY(32,18);} 

writeln( ’AVERAGE  RESPONSE  TIME  :  ’:B5. 
rou nd( total J at  /  TotalShown)/1000:4:2,’  seconds’); 

END; 


{ . 

procedure  InitState  -  initializes  GLOBAL  variables  for  statistical  purposes 

. . } 

procedure  InitStats; 
begin 

flashscore  0; 

flash  total  :™  0; 

TotalShown  0; 
score  0; 

average  0; 

total Jat  0; 

total.conf  0; 
for  x  1  to  numberpictures  do 

eurrentgame . latency (x)  0; 

end; 


{ 


) 


Procedure  AfterPieture 


procedure  afterpicture;  {  SEE  above  for  parameter  list  } 
var  x  :  integer; 

r,racore,rconf,rlat  :  real; 
begin 

with  currentgame  do 
begin 

latency  (index]  lat; 
total_lat  :«  total  Jet  +  lat; 
confidencejindex]  :*«=  conf; 
total_conf  :■*  total_conf  +  conf; 
comct(index]  false; 
if  right  then 
begin 

correct[index]  :=■=  true; 
average  average  +  I; 
end; 

r  1.0; 

rconf  :=  conf/ 10;  rlat  lat*r; 
if  right  then 

score  :«=  score  +  ((rconf*  1030)/(  1000+  rlat)}  +  10 
else 

score  :«=  score  -  ((rconf*1030)/(1000+rlat))  -  10; 

end; 

end; 


<• . 

procedure  GetConfidence... 

This  procedure  will  prompt  for  the  user’s  own  confidence  rating,  read  it 
as  a  character,  convert  it  to  an  integer,  and  send  it  back  as  the  VAR 
parameter  "conf” 

. } 


procedure  GetConfidence(VAR  conf:  integer); 
var 

c_responsc  :  char; 

begin 


{  CONFIDENCE  RULER  } 

GOTOXY(2,5);  WRITE(  TEAST'); 

GOTOXY(0,fl);  WRITE(’CONFIDENT’); 

GOTOXY(73,5);  WRITECMOST’), 

GOTOXY(70,6);  WRITE(’CONFr  .'NT’); 
PAlNTBLOCK(MINIFOTO, 320, 0,6, SCREEN, 320, 0,75, 320,20, 0,-1); 
UNIT\VRITE(3, SCREEN, 63); 

{  GIVE  CONFIDENCE  } 

PAINTBLOCK(MINIFOTO, 320, 125,0, SCREEN, 320, 0,11 1,135, 6, 0,-1); 
UNITWRITE(3, SCREEN, 63); 

GOTOXY(32,ll); 

read(c_response);  (  read  response  as  a  string  } 


{***  convert  the  strinf  to  an  integer...  *•*} 
while  not  (ord(c_response)  in  jfl,48..57])  do 
begin 

GOTOXY(0,12); 

WRITELN(’  You  must  enter  a  number  from  the  above  aet...’); 
WR1TE( 'CONFIDENCE  :  *); 
read(c_response); 
writeln; 
end; 

if  (c_respon»e  in  [’O’. .*©’])  then 
begin 

eonf  >  (ord(c_response)  -  ord('O')); 
if  (conf  =■=  0)  then  conf  100 
else  conf conf  •  10; 
end 

else  conf 0; 

end  {  ...of  procedure  GetConfidence...  }; 


{* . * . . . . . . . •«•••} 

Procedure  SingleTrial;  {See  Parameter  list  above  } 

VAR  j , ticks, millisecs, confidence  :  integer; 

time  :  real; 
correct.got  :  boolean; 
guess  :  string; 
resp  :  char; 

begin 

TotalShown  :**=  Total  Shown  +  1; 

for  j  1  to  SetSpeed  do  DELAY(250); 

page(output); 

{  AIRCRAFT  NAME  PROMPT  } 

COTOXY(32,2); 

FHLCHAR(SCREEN  ,SIZEOF(SCREEN),0) ; 

PAINTBLOCK(MlNIFOTO, 320,  ONSCREEN, 320,0, 22, 121,6,0,-1); 

UN1TWR1TE(3, SCREEN  ,63); 
ticks  TimeRead(guess); 

if  (guess  «=  ”)  then  guess  :=  ’XXXXX’;  {  to  insure  wrong  answer  ) 

IF  IFPRAO  THEN 

CORRECT  CHECKANSWER(GUESS,INFO _LIST[PRACSTART+LISTINDEX]) 

ELSE 
begin 

correct  ChcckAnswer(gue58,  Info_List[ListIndex]); 
end; 


GetConfidence(conhdence);  {  read  the  user’s  confidence  } 

{  Calculate  the  latency  to  answer  in  seconds,  and  milliseconds...  } 
time  =  (ticks/80); 

if  (time  >  (Maxint/1000))  then  time  :=  (MaxInt/1000); 

{  ...so  we  don’t  get  an  overflow  when  converting  to  milliseconds...  } 
millisecs  round(time  *  1000); 


WRITELN; 

writeln; 

IF  (correct)  THEN 
BEGIN 

flashscore  flashscore  +  1; 

GOTOXY(0,14); 

WR1TELNCREC0GNITI0N  CORRECT.’); 

END 

ELSE 

BEGIN 

GOTOXY(0,14); 

WRITELNCRECOGNITION  INCORRECT.’); 

IF  IFPRAC  THEN  BEGIN 

WRITE]  That  was  a  ’,lnfo_LUt[rRACSTART+Listlndexl.Namee[2]); 
WRITELN (’  \Info_Li*t[PRACSTART+LUtIndex].Naxnea{l]); 

END 

ELSE  BEGIN 

WRITE(’That  was  a  '4nfo_Liet|Liitlndex].Nenie*(i<]); 

WRITELN]’  ’,lnfoJList[Listlndex).Names[l]); 

END;  {  IFPRAC  } 

ERROR;  {  sound  for  bad  response  } 

END; 

writeln(’Response  Time  «■»  ’,millisecs/l000:4:2,’  seconds’); 
afterpicture(correct,  confidence,  mitlisecs,  Listlndex); 

8  ash  total  flashtotaJ  +  1; 

Outputs  tats; 
writeln; 

write('  Hit  <TAB>  to  see  the  aircraft  again,  ’); 
writeln(’  < RETURN  >  for  next  Aircraft  ’); 

read(resp); 

if  reap  <  >  chr(O)  {  The  TAB  key...  } 

then  begin 

readln;  {  Eat  up  the  "return"...  ) 

end 
else 
begin 

if  (IFPRAC)  then 
begin 

Displsy(PRACSTART  +  Listlndex); 
writeln(infoJist(PRACSTART  4-  Listlndex]. Names]?)); 
writeln] ’  ’,  infoJistjPRACSTART  +  Listlndex).Namaa[l]); 
writeln; 

writeCHit  < RETURN  >  for  next  aircraft  ’); 
readln; 
end 
else 
begin 

Dispiay(Listlndex); 

writeln  (info  Jiat|Liatlndex]  .Names|2] ); 

writeln]'  ’,  infoJist(ListIndexj.Names(lj); 

writeln; 

write(’Hit  <RETURN>  for  next  aircraft  ’); 


rcadln; 

end; 

end; 


{••••••••••••  for  10  aecond  mix  wait 

unitread(3,reep,  1,0,1); 
got !-  PAUSE; 

If  got—fabe  thin  begin 

ERROR; 

PAOE(OUTPUT); 

COTOXY(II,10);  WRIT® TIME  EXPIRED'); 

00T0XY(1B,13);  WRlTEf'Wateh  the  center  of  thi  hnu  for  ant  aircraft'); 
DKLAY(7000); 
cad; 

. ) 

cad  {  SiaglaTrial  ); 


PROCEDURE  Oamc3; 

VAR  Llatlndex,°ieLoop  :  integer; 
begin 

pul), 

for  I  .eboop  1  to  TotaiPieturee  do  {  Loop  over  the  entire  eet  of  pleturee  ) 
begin 

Liatlndex  Plegequenee|PieLoop];  {  get  the  next  index  from  the  random 

ordering  ) 

Diepley(Lletlndex); 

SingleTrial(LielIndex,falM); 

pagefoulput); 

end; 

acore  (aeore  +  B3I.7B)*(1000.0/1077,M); 
end  {  OameS  ); 


BEGUN  {  MAIN  PROORAM  ) 

gameioop  0; 
while  gameioop  «■*  0  do  begin 
Initfitate; 

FromDlak(lnfoJLlet,  '#5.NewNemee'); 

ANIMATE; 

TotaiPieturee  (••••  LlelLength(Info_Ll»t)  ••••)  43; 

GbooecPIaneefPielequence); 

Shufl1e(Pielequenee.  TotaiPieturee); 

PRACTICE; 

HELl'0(aurrentgame. name 'Ciirrentgame. dale, eurrcnlgameJS); 
{  eorbin'e  GETNAME,QETDATE,  confirm  in  a  gift  rap  ) 


} 


{IS+} 

UNIT  UEMFILER3; 

{  . . 

INTERFACE 

{ . . . } 

CONST 

DateltemFilerS  — •  ’10-9-84...  HiScores  no  longer  asks  for  ’call  sign*—  0 
MAXINDEX  —  100; 

MAXNAMES-  3; 

FLAGS  —  100;  {  Fotofile  index  number  in  INFO_LIST  } 

TYPE  STR15  —  STRING|15); 

AIM_PIC  —  PACKED  ARRAY(0..59,0..59]  OF  BOOLEAN; 

THIRDSCREEN  «=  PACKED  ARRAY|0.. 28351]  OF  BOOLEAN;  {  7  BLOCKS  OF  BITS  } 
SCREENMAP  -  PACKED  ARRAY(0..239,0.  319]  OF  BOOLEAN; 

CLOCK  JNT  —  RECORD  CASE  BOOLEAN  OF 
TRUE  :  (VAL  :  INTEGER); 

FALSE  :  (BOOLS  :  PACKED  ARRAY[0..15]  OF  BOOLEAN); 

END; 

SCORES JREC  -  PACKED  RECORD 
GAMENAME  :  STRINGjlS]; 

SCORE  :  INTEGER; 

END; 

NEWREC  «*  packed  record 

names  :  packed  array  [1..MAXN/ \L  S]  of  str.5; 
block  :  integer; 

FULLSCREEN  :BOOLEAN; 

TOPTHIRD  :  BOOLEAN; 

MID  THIRD  :  BOOLEAN; 

BOTTHIRD  :  BOOLEAN; 

END; 


ILIST  —  array 1 1.. MAXINDEX]  of  NEWREC; 

VAR  infodir  :  file  of  NEWREC; 

HISCOREFILE  :  FILE  OF  SCORES_REC; 

SCREEN  :  SCREENMAP; 

SMALLSC  :  THIRDSCREEN; 

CROSSHAIRS  ;  AIM.P1C; 

INFOJLIST  :  ILIST; 

HILIST  :  PACKED  ARRAY(1..10]  OF  SCORESJIEC; 
I_NAME  :  STR15; 

procedure  FROMDISK(Var  DJiat:ILIST;  I_name:atrl5); 
procedure  DISPLAY(  N  :  integer  ); 
procedure  DELAY(  N  :  Integer  ); 

{procedure  MEMORY(  M  ;  integer  );} 


{function  PAUSE  :  boolean;} 

procedure  HISCORE(name  :  str!5;  score  :  integer); 


1 

{* . 

IMPLEMENTATION 

{ . . . 


Procedure  PAlNTBLOCK(V u  source;  arcwid,  srcx^rcyiinteger; 

var  dest;  detwid.dstx.dsty,  cntx, cnty.m  ode  .gray  integer); 
(*  mode  :  0—*fltore,  1—or,  2— and,  3*«xor;  +4“eomp  •) 

External; 


(procedure  MEMORY; 
begin 

writeln( ’PLACE  #’,M,’  \  MEMAV AIL  *=’,MEMA VAIL,’  SIZEOF(infordir)-\ 

SIZEOF(INFODIR) ); 

readln; 

end;} 

procedure  DELAY ; 
var  i  :  integer; 
begin 

for  i  :«■  1  to  N  do; 
end; 


procedure  FROMDISK; 
var  H  :  integer; 
begin 

raet(infodir,I_name); 

FOR  H  1  TO  MAXIM) EX  DO  BEGIN 
QJiat[Hj  infodir'; 
if  not  EOF(infodir)  then  get{infodir); 
end; 

cioee(infodir); 

end; 


DISPLAY  -  Duplays  a  game  image  on  the  screen  according  to  it's 
index  number  in  Iljiat.  qq 
} 

procedure  DISPLAY; 

var  NEWBLOCK.X.Y  :  INTEGER; 

begin 
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PAGE(OUTPUT); 
with  INFO_LIST[N]  do  begin 
A)lchar(SCREEN,siteof(SCREEN),2S5); 

PAINTBLOCK(CROSSHAIRS,60,0,0,SCREEN,S20,12#,88,60,60,3,-1); 
UNITWRITE(3, SCREEN, 63); 

DELAY(200); 

UNITWRITE(3,  SCREEN,  7); 

IF  FULLSCREEN-TRUE  THEN  BEGIN 
UNITREAD(6, SCREEN ,siteof(SCREEN), BLOCK); 
UNITWRITE(*,«reen,6S); 

END 

ELSE  BEGIN 

IF  (TOPTHIRD-TRUE)  THEN  BEGIN 
NEWBLOCK:— BLOCK; 

X  0;  Y:— 0; 

END; 

IF  (MIDTHIRD— TRUE)  THEN  BEGIN 
NEWBLOCK:— BLOCK -t-6; 

X  64;  Y  3; 

END; 

IF  (BOTTHIRD-TRUE)  THEN  BEGIN 
NEWBLOCK:— BLOCK+12; 

X  :-  128;  Y  :-  8; 

END; 

UNITREAD(5,SMALLSC,SIZEOF(SMALLSC),  NEWBLOCK); 
PAIN TBLOCK(SMALLSC, 320 ,X,Y .SCREEN  ,320 ,0,78,320, 80, 0,*l); 
UNITWRITE(3, screen  ,63); 

END; 

end;  {  with  ) 
end;  {  Display  } 


function  PAUSE  :  boolean; 

Waite  10  aeconde  for  a  user  reeponie. 

returns  control  to  the  program  when  a  response  is  detected 

or  after  10  seconds 

returns  a  boolean  value 

. . . .  ) 

< . 

function  PAUSE; 

VAR  LO.L01  :  CLOCKJNT; 

HI :  INTEGER; 

BEGIN 

PAUSE  :-  FALSE; 

TIME(HI,LO.VAL); 

LO.BOOLS(O)  -  TRUE; 

WHILE  UNITBUSY(2)  DO 
BEGIN 

TIME{HIL01.VAL); 

LOl.BOOLS(O)  :-  FALSE; 

IF  ((LOl . VAL-LO . VAL) > 600)  THEN  EXIT(PAUSE); 


} 


PROCEDURE  HISCORE; 


VAR  - 
INC,  H 
DONE 
(.response 
•tr 


:  INTEGER; 

: BOOLEAN; 
:  char; 

:  »trinj; 


begin 

reeet(hifcorefUe ,  ’#5  :HISCORE  .DATA’) ; 
for  h:-  1  TO  10  DO  BEGIN 
HILIST[H]  HISCOREFILE*; 

IF  NOT  EOF(HISCOREFILE)  THEN  GET{  HISCOREFILE) 
END; 

CL  OSE{  HISCOREFILE); 

PAGE(OUTPUT); 

DONE  FALSE; 

INC  0; 


REPEAT 
INC  INC+1; 

IF  INC— II  THEN 
DONE:— TRUE 
ELSE 

IF  (Hilist[inc]  .Score  <  —  Score)  THEN 
DONE— TRUE; 


UNTIL  DONE; 

IFINCOH  THEN  BEGIN 

IF  INC<  >10  THEN  BEGIN 
FOR  H  10  DOWNTO  (INC+1)  DO  BEGIN 
HILISTfH]  .GAMENAME  HILISTjH- 1 )  .G AMENAME; 

fflLIST[H]  SCORE  HILIST|H-l].SCORE; 

END; 

END; 


( . . . 

{Thu  player  will  be  on  the  list...  decide  what  name  to  put  there.) 

page(output); 

writeln;  writein;  writeln;  writeln;  writeln; 

writeln(’  Congratulations.  Your  score  is  one  of  the  ten  beet  so  far,’); 
writeln(’  and  will  be  put  on  the  list.  Would  you  like  to  change  the’); 


*.  ».  \ 


writeC  Dime  ”,  name,  ’*  to  your  ’call  sign"  instead?  (y  or  n]  *); 
read(c_response); 

while  not  (c_rtsponse  in  (’y’,  *Y\  ’n\  ’N’J)  do 
begin 

gotoXY(0,  11); 

write(’  Please  enter  a  "y*  or  an  *n*:  ’); 
read(c_response); 
writeln; 
end; 

if  (c_response  in  [’n\  ’N’j)  then 
begin 

writeln(’Okay.  ”,  name,  ”  it  is.’); 

end 

else 

begin 

repeat 

repeat 

page(output); 

writeln; 

write(’  Please  type  in  the  new  name  (15  characters  or  leas) :  ’); 
readln(str); 

until  ((length(str)  >  0)  and  (length(str)  <  16)); 

name  :«=  str; 

writeln; 

write(’  Is  ”,  name,  correct?  (y  or  n]  ’); 
read(e_response); 

until  (cjesponse  in  [’y\  TY’]); 

end;  {  of  "else”  ) 

. *) 

HILIST(INC)  .GAMENAME  NAME; 

HILISTIINC]  .SCORE  SCORE; 

END; 

PAGE(  OUTPUT ) ; 

UN1TREAD(5, SCREEN  ,SI2EOF(SCREEN),INFO_LIST[FLAGS)  .BLOCK); 
UNIT  ,TE(31SCREEN,63); 

FOR  H  :*=  1  TO  10  DO  BEGIN 
GOTOXY(29,7+H);  WRITE(HIL1ST(H]  .GAMENAME); 
GOTOXY(47,7+H);  WRITE{HILIST[H]  .SCORE); 

END; 

REWRITE(HISCoREFILE,’#5:HlSCORE.DATA’); 

FOR  H  -  :  TO  10  DO  BEGIN 
HIS  CO  REFILE-  HILISTjH]; 

PUT(HISCOREFILE); 

END; 
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Unit  GameUn3; 


INTERFACE 

uses  {**  Menus,  •*}  {$U  ITEMFILER3.CODE}ItemFiler8; 


CONST 

DsteGsmeUnS  —  7-17*84,  8:13  PM...  by  *  friend  of  Lethe's  Boatman1; 
Maxlnt  -  32767; 

SetSpeed  —7;  {  Speed  for  games  with  no  speed  option  } 

ChooeeGame  “  True;  {  Allow  user  to  choose  game  } 

All_In_One  —  False;  {  Play  the  game  that  shows  each  and 

every  picture  once  } 

Flash  Game  {  currently  not  working  } 

—  False;  {  Play  the  game  that  chooses  a  picture 
from  the  entire  set  each  time  } 


TYPE 

TINYJSTRING 

CharString 

NameRec 


{  Handy  for  o  .  .  etc. 


) 


string 

string 

string 


—  string[  1]; 

—  string[l] ; 
record 

Namel  :  string! 

Name2 

Name3 
Named 

{  If  the  number  of  these  fields 
is  changed,  procedure  CheckAnswer  must  also 
be  changed.  } 

end;  {  ...of  record  NameRec...  ) 


13]; 

is]; 


15); 

15 


{•** 

PicList  ■»  array [l..MaxPictures]  of  NameRec; 

•••} 

IndexList  —  array  [l.Maxlndex]  of  integer;  {  This  will  bold 
a  random  ordering  of  all  possible  indicss.  } 


VAR 


TotalPicturcs 

PieSequence 

flashscore 

flash  total 

seed 

response 

game 

done 

x,i 

menul 

PlaneName 


:  integer;  {  To  hold  the  total  number  of  pictures  } 

:  IndexList;  {  For  the  game’s  order  to  show  pictures) 
:  integer;  {  Globally  keep  track  of  total  com*  * 

:  integer;  {  Globally  keep  track  of  total  trials  ! 

:  integer; 

:  char; 

:  char; 

:  boolean; 

:  integer; 

:  MenuRecord; 

:  string(lG); 


PieturcToul 


:  integer; 


PROCEDURE  Randomise(VAR  Med:  integer); 

FUNCTION  Random(VAR  Med:  integer;  Low,  High:  integer) :  integer; 

i 

Procedure  Sbu01e(VAR  IndexAmy:  IndexList;  Numjof_Pies:  integer); 
Procedure  MakeSequenee{VAR  IndexAmy:  IndexLiet;  Numjof_Pies:  integer); 
Procedure  CboceePlanesfVAR  IndexAmy:  IndexLiet); 

PROCEDURE  UppcrCasefVAR  name  1  :  string); 

FUNCTION  Oompare(var  flret,  Mcond:  etring):  boolean; 

PROCEDURE  NewLines(count:  integer); 


PROCEDURE  ModW«it(Med  :  integer); 

Function  LietLength(VAR  Liat:  IList):  integer; 

Procedure  BuildString(Var  FinelString:  string;  NewCher:  Cher); 
Function  TiroeRead(Var  result:  string):  integer; 

Procedure  Remov«Plank*(VAR  stringl:  string); 

Procedure  8  <p(VAR  rtringl  :  string); 

Function  Che-  iiAnewer(var  answer:  string;  Possible*:  NewRec):  boolean; 

( . * . * . ) 

IMPLEMENTATION 

( . . . ) 

PROCEDURE  Randomise; 
externa); 


function  random; 

CONST 

L-20; 

C  -  217; 
M  -  1024; 


VAR 

fraction  :  real; 


begin 

{•** 

reaUeed  (abs(M*d*27.182813))  +  31.416017; 

realised  :»  realised  /  100; 
realseed  realseed-trunc(realMed); 
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seed  abe(seed)  mod  1000; 
seed  (seed  •  L  +  C)  mod  M; 
fraction  seed  /  M; 

random  trunc((fraction  •  ((high  -  low)  +  1))  +  low); 


procedure  Shuffle; 

{  Shuffle  the  list  by  randomly  interchanging  pairs  of  entries. 


randl,  rand2  :  integer; 
i  :  integer; 

index  1,  index2  :  integer; 
temp  :  integer; 


begin 

randomise(randl); 
ModWait(  randl); 


{  start  one  random  sequence 


{  wait  a  random  amount  of  time  (to  let  the 
clock  reach  another  random  state)  } 

{  start  th*  other  random  sequence  ) 

{  make  Xi*.  'andom  exchanges  of  elements 


randomite(rand2);  {  start  th*  other  random  sequence  ) 

for  i  :*■  1  to  200  do  {  make  'andom  exchanges  of  elements 

begin 

indexl  random(randl,  I  ]  um_of_J  ics); 

index2  «  random(rand2,  1,  Num_ofJPics);  {  randomly  chooee  a  pair  of 

elements  to  interchange...  } 

temp  :«=«  lndexArray[indexlj; 


IndexArray [indexl]  :■=  IndexAr 
IndexArray(index2]  temp; 
end  (  ...of  "for"  loop...  }; 
end  {  ...of  procedure  ShuffleQ...  }; 
{ . 


IndexArray  [index2] ; 

temp;  (  ...and  interchange  them  } 


{ . } 

Procedure  MakeSequence; 

{ 

This  procedure  will  fill  the  array  IndexArray  with  a  shuffled 
sequence  of  index  values,  for  use  as  a  random  sequence  when  each 
index  should  only  be  used  once. 

} 

VAR 

countl,  count2  :  integer; 


(  First,  initialize  the  array  to  an  ordered  sequence.  } 
for  countl  1  to  Num_of_Pics  do 
IndexArray  [countl)  :*=  countl; 


Shuffle(lndexArray,  Num^of _Rics); 
end;  {  ...of  procedure  MakeSequence...  } 

{ . } 


{ . } 

procedure  ChoosePlanes; 

{ 

This  procedure  will  fill  IndexAmy  with  42  index  numbers,  c 
corresponding  to  7  esch  Russian  fronts,  sides,  snd  tops,  and  their 
matching  distractors.  Thir  vill  only  work  if  they  are  arranged  with 
their  index  values  as  14  Russian  (same  view),  14  distractors,  etc. 

The  corresponding  distr&ctor  for  any  Russian  picture  should  have  an  index 
of  14  greater. 

IndexList  will  contain  randomly  chosen  indices,  but  they  will  not 
be  randomly  grouped.  The  list  variable  should  be  passed  to  a  shuffling 
routine  such  as  ShuffleQ  after  it  is  filled  here. 

} 

VAR 

r&ndl  :  integer; 

AlreadyChosen  :  set  of  l..Maxlndex; 

NewNumber  :  integer; 

i  :  integer; 

check  :  integer; 


begin 

randomire(randl); 

AlreadyChosen  (]; 

for  i  :**  0  to  6  do  {  get  7  each  Russ,  and  dist.  tops...  } 

begin 

NewNumber  :*=  random(randl,  1,  14);  (  choose  a  Russian...  } 

check  :=  0; 

while  ((NewNumber  in  AlreadyChosen)  and  (check  <■*  14))  do 
begin 

{*** 

NewNumber  :=*  ((NewNumber  +  1)  MOD  14)  +  1; 
check  :■*  check  +  1; 

***} 

NewNumber  :■*  random(randl,  l,  14); 
write(’.'); 

end;  {  ...find  an  unused  number...  } 

if  (check  >14)  then 
begin 
writeln; 

write(’ERROR:  trouble  in  procedure  ChoosePlanes,  cannot  find  new  number.’) 
writeln; 
end; 

AlreadyChosen  AlreadyChosen  +  jNewNumber]; 
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lndexArray((2  *  i)  +  l)  NewNumber; 

lndexArrayj(2  •  i)  +  2]  NewNumt  +  14;  {  add  corresponding  distrsctor  } 
end; 

{  Oei  next  view  eet...  } 
randomise(randl); 

AlreedyChosen  []; 

for  i  7  to  13  do  {  get  7  Ruse,  end  diet,  tides  } 

begin 

NewNumber  rendom(rendl,  29,  42);  {  choose  e  Ruasien...  } 

cheek  :«■  0; 

while  ((NewNumber  in  AlreedyChosen)  end  (check  <*>  14))  do 
begin 
(*•• 

NewNumber  :*>  (NewNumber  +  1)  MOD  14; 
if  (NewNumber  =»  0)  then  NewNumber  :=  14; 

•••> 

NewNumber  rendom(randl,  1,  14); 
write(’.’); 

NewNumber  NewNumber  +  28;  (  put  in  range  of  29  to  42...) 

end;  (  ...find  en  unused  number...  } 
if  (check  >  14)  then 
begin 
writeln, 

write('ERROR:  trouble  in  procedure  ChooseFlanes,  cannot  find  n;w  numb*  -.’) 
writeln; 
end; 

AlreedyChosen  AlreedyChosen  +  (NewNumber); 
lndexArrey((2  *  i)  +  1)  NewNumber; 

IndexArrayj(2  •  i)  +  2]  :*  NewNumber  •+•  14;  {  add  corresponding  distrector  } 
end; 


{  get  next  view  set...  } 
rendomiie(randl); 

AlreedyChosen  (]; 

for  i  14  to  20  do 
begin 

NewNumber  rendom(randl,  57  ,  70);  {  choose  e  Russian...  } 

check  0; 

while  ((NewNumber  in  AlreedyChosen)  end  (check  <■■  14))  do 
begin 
<••• 

NewNumber  ((NewNumber  +  l)MOD  14  +  1); 

•••) 

NewNumber  rendom(rendl,  1,  14); 
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wriu(\'); 

NewNumber  NewNumber  +  56; 
end;  {  ...find  an  unused  number...  } 


{  put  in  rang*  of  57  to  70...} 


if  (check  >  14)  then 
begin 
writeln; 

writ«( 'ERROR:  trouble  in  procedure  CbooaePlanea,  cannot  find  now  number.’) 
writeln; 
end; 

AlreadyCboaen  Already Choeen  +  (NewNumber); 

lndexArray((2  *  i)  +  1)  NewNumber; 

IndexArray((2  •  i)  +  2]  NewNumber  +  14;  {  add  fading  diatnctor  } 
end; 

end;  {  ...of  procedure  ChooaePlanee...  } 


{ . ) 

PROCEDURE  UpperCaee; 

VAR 

i  :  integer; 

bolder  :  integer; 

begin 


for  i  1  to  length(namel)  do 
begin 

bolder  :■»  ord(namel[i]); 
if  namel|i|  in  (V..V)  then 
namel(i]  chr(holder  -  32); 
end; 

end  {  Uppercase  }; 


FUNCTION  Compare; 
begin 

UpperCase(first); 

UpperCase(second); 

if  (first  —  second)  then  Compare  :«»  true 
else  Compare  false; 
end; 


PROCEDURE  NewLines; 
VAR 

i  :  integer; 


begin 

for  i  :=  1  to  count  do  writeln; 


•nd  {  New  Linn  }; 


PROCEDURE  ModWait; 
VAR 

delay  :  Integer; 
i  :  integer; 


begin 

M«d  abe(seed); 
delay  :«■  (seed  mod  300); 
for  i  :«■  1  to  diliy  do 
delay  :»  d«Uy; 
rad  {  of  ModWait  ); 


{ 


} 


Function  ListLength; 

{ 

ThU  function  find*  and  return*  the  length  of  the  array  parameter 
List,  which  i«  of  type  PicLiet. 

} 

VAR 

count  :  integer; 


begin 

(writeln( Entering  LietLcngth,  li*t(l].namel  ie  \Liet[l).Namea[l]);} 
count  :«■  1; 

while  ((count  <-»  MAXINDEX)  and  (Li»t(count].NaDes(l)  <>  ’nonel23’)  rad 
(Llst|count].Namee[l]  <>  ’NONE123’)  rad 
(Lietjcountj.Nemeejlj  <>  ’Nonel23')) 
do 

begin 

(writeln(’<’, count, Liet[countJ.Namei[l|);} 
count  count  +  I; 

end; 

(writeln(XUtLength  is  ’,  count, 

ListLength  count  - 1; 

{writ«ln( ’Leaving  LislLength’); 
readln;} 

end  (  ...of  function  ListLength...  ); 

{ . * . } 


{ . } 

Procedure  BuildString; 

{ 
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This  procedure  will  allow  a  string  to  be  built  character  by  character. 

A  <  backspace  >  will  have  the  effect  that  it  ahould...  one  character  will 
be  deleted  off  the  end  of  the  string 

Each  call  to  procedure  BuildString  will  append  one  character  ("NewChar*) 
to  the  etring  "FinalString” . 


etrlen 

StringEnd 


integer; 

:  CharString; 


begin 

StringEnd 

etrlen  :•»  length(FinalString);  {  get  current  end  of  etring  } 

StringBnd[l] New  Char; 

if  (orr'(NewOhar)  <  >  8)  then  {  not  a  backspace  } 

begin 

if  length(FinaJString)  <  20  then 
FinalString  :■»  concat(FinalString,  StringEnd) 
end 

else  { the  character  entered  ie  a  backspace...  } 

if  (etrlen  >0)  (  ...and  there  ie  at  least  one 

character  to  get  rid  of...  ) 

then 
begin 

delete(FinalString,  etrlen,  1); 
writef  \chr(8)); 
end 

else  write(’  ’); 

end  {  ...of  procedure  BuildString...}; 


Function  TimeRead; 

{ 

This  function  acts  like  a  "read In”,  except  that  it  \lso  returns  an 
integer  which  is  the  count  of  terak  dock-ticks  it  «k  the  user  to 
enter  the  first  two  characters.  It  uses  the  procedure  BuildString. 

) 


letter  : < 

KeysEntcred 
ElapsedTime 
HighStart,  LowStart 

HighStop,  LowStop 


:  Char; 

:  integer; 

:  integer; 
rt  :  integer; 


clock  values  ) 
integer; 


{  high  and  low  order  starting 


begin 

result  ”; 

KeysEntcred  0; 

HighStart  0;  LowStart  0; 
HighStop  0;  LowStop  0; 


vW  •  ■V'*V-‘.v  v.\ 

O  s.  *  •  O  v*  •  *  t.*  *  *  i.*  • 


Time(HighStart,  LowStart); 
while  not  EOLN  do 
begin 

reaet(key  board); 
read(letter); 

KeyaEntered  KeyaEntered  +  1; 

BuildString(  result,  letter); 

if  ((KeytEntered  ■»  2)  or  (EOLN  nod  (KeyaEntered  <  2))) 
then  Time(HigbStop,  LowStop); 
end;  {  of  While  loop  for  rending  in  characters  } 
if  KeyaEntered  >  Othen 

for  x:—  1  to  length(reault)  do  if  x  <—=  length(result)  then 
if  reaultfx]  “  '  ’  then  delete(result,x,l); 
if  reault  “  ”  then  result  :■«  ’XXXXX’; 

if  ((LowStart  >  0)  and  (LowStop  <  =  0))  then  (if  the  clock  counted  to  Max,  the 

started  negative...  } 

ElapsedTime  ((Maxlnt  -  LowStart)  4-  (Maxlnt  4-  LowStop))  else 
Elapsed  Time  LowStop  -  LowStart; 

TimeRead  :«=  ElapsedTime; 
end  {  ...of  function  TimeRead...  }; 

( . } 


Procedure  RemoveBlanks; 

{ 

This  procedure  will  remove  all  trailing  <apace>  and  <retum>  characters 
from  the  end  of  atringl. 

} 

VAR 

i  :  integer; 


begin 

while  ((ord(stringl  [length(stringl)j))  in  (32,  13]) 

do  {  if  last  character  is  a  < space >  or  a  <ret>...  } 

deletc(stringl,  length(striagl),  1);  {  ...then  remove  it  } 

end  (  ...of  procedure  RemoveBlanks...  }; 

{ . ) 

Procedure  Strip; 

VAR 

i  :  integer; 

begin 

for  i  length(stringl)  downto  1  do 
begin 

if  NOT  (stringl (ij  in  (V..V,  ’A’-.’Z’,  ’0’..’9’))  then 
delete(stringl,  i,  1); 


end  {  ...of  procedure  Strip...  }; 


{ . } 

Function  CheckAnswer; 

{ 

This  function  will  compare  the  string  ’answer*  with  all  possible  correct 
answers  found  in  NameRec  and  return  ’true*  if  a  match  is  found,  otherwise 
it  will  return  ’false*.  The  differences  between  capital  and  small  letters 
make  no  difference,  for  both  ’answer*  and  ’Possibles*  are  converted  to  all 
capitals.  Also,  any  non*alphanumeric  characters  in  either  name  (such  aa 
or  */*,  or  space,  will  be  stripped  out  before  the  comparison. 

} 

begin 

with  Possibles  do 
begin 

UpperCase(Names[l]); 

UpperCase(Names[2]); 

UpperCase(answer); 

Strip(Namee[l|); 

Strip(Names(2j); 

Strip(answer); 

if  v'answer  Names[l])  or  (answer  —  Names{2j)  or 
(answer  *«=  concat(Name8[lj,  Names[2!))  or 
(answer  =  concat^Namesjsj,  Namcsjlj))) 
then 

CheckAnower  :•*=  true 
else 

CheckAnswer  :=»  false; 
if  (answer  *  ”)  then  CheckAnswer  :*=  False; 


end  {  ...of ’with  Possibles’...  }; 
end  {  ...of  function  CheckAnswer...  }; 

i  » 


FLASH  IVAN  INTRODUCTION 


NPRDC  DECEMBER  9,  1983  DAVID  M.SETTER ; 


.PROC  SOUND 

;  MACROS  AND  SYMBOLICS: 

.INCLUDE  SYMBOLICS.TEXT 
.INCLUDE  MACROS. TEXT 
.INCLUDE  SND_EFF.TEXT 

;  SAVE  REGISTERS: 

PUSH  R5 
PUSH  R4 
PUSH  R3 
PUSH  R2 
PUSH  Rl 
PUSH  RO 


;  TAKE  CONTROL  OF  KB  AND  LP_EDB: 
B1C  #100, ©#177560 
BIC  #100, ©#177564 


MAIN: 


MAIN: 

CLR  Rl 

92$: 

MOV  #006, R5 
MOV  #20B0 
ADD  #2,Rl 
SUB  Rl,R0 


PITCH  RO,RO,#12,#8 
SOB  R5,l$ 


CMP  Rl,#0 
BLE  92$ 


END  OF  MAIN. 

»**«4****t**t**i 


BIS  #100,0#  177660 
BIS  #100,0# 177664 


FLASH  IVAN  INTRODUCTION 

f 

NPRDC 

DECEMBER  9,  1963 

DAVID  M.SETTER  ; 

.PROC  TIMEPI 


MACROS  AND  SYMBOLICS: 

.INCLUDE  MACROS.TEXT 
.INCLUDE  SYMBOLICS  .TEXT 

.INCLUDE  SND_EFF.TEXT 

SAVE  REGISTERS: 

PUSH  R' 

PUSH  R4 
PUSH  R3 
PUSH  R2 
PUSH  R1 
PUSH  RO 


TAKE  CONTT  **  t  KB  AND  LPJEDB: 
BIC/  177560 

BIC  i  .177664 


;  MAIN: 


MOV  #20,R0 
MAIN: 

PITCH  #2,R0,#20,#2 
SOB  R0.MAIN 


MOV  #20,R1 

65$: 

PITCH  #2,#1,#10,#2 
SOB  Rl,55$ 


;  END  OF  MAIN. 

BIS  #100, ©#177580 


BIS 

#100,0#177664 

V • . ' 

POP 

RO 

V  * 

POP 

R1 

r-  < 

POP 

R2 

v:0 

POP 

RS 

POP 

R4 

POP 

R5 

I*t»**< 

RTS 

PC 

l-  -  - 

(IS+) 

Program  mekestats; 

CONST  MAXINDEX  -  100; 

MAXNAMES  -  3; 

1  _name  —  ’Newnames’; 

numberpictures  —  89;  (•  total  #  of  pie  turn  avail  abU. 

Tb*  number  of  planes  actually 
ua«d  in  a  gama  ia  unimportant.  •) 

name  —  ’#5:GAMES.DATA’;  (*  Diak  file  of  play  ad  gama  atata  •) 

across  —  13;  (•  Formatting;  #  row*  printed  •) 

maxgamea  —  100;  (•  per  page.  •) 

TYPE  STR15  —  etring[15); 
aatype  ™  atriag(ll); 

NEWREC  »  packed  record 

names  :  packed  arrayjl.. MAXNAMES]  of  atrl6; 
block  :  integer; 

FULLSCREEN  :  BOOLEAN; 

TOPTH1RD  :  BOOLEAN; 

BOTTHIRD  :  BOOLEAN; 
and; 

ILIST  -  array [  1 . .MAXINDEX]  of  NEWREC; 
nametype  *■  etring(l6); 

scale  —  0..100; 

gamestata  —  record 

name  :  nametype;  (•  The  player's  name,  and  •) 

as  :  aatype; 

dale  :  nametype;  (*  the  dale  of  the  gams.  •) 

latency  :  packed  array|l..numberpicturos]  of  integer;  (•  Statist 

confidence  :  packed  array[l..numbarpicturea]  of  acala;  (*  for  are 
correct  :  packed  array [l..numberpicturec]  of  boolean;  (•  plane  f 
and;  (•  gamestata  *)  (•  each  game.  ») 

VAR  infodir  :  file  of  NEWREC; 

INFOJLIST  :  ILIST; 

totalJat,totaLcorrecl,total_eonf;array|l.. numberpictures]  of  real; 

lat_totel,conf_totel,correct_tote1  :  array  !l..maxgam«s]  of  real; 

no_planee  :  array] 1. numberpictures]  of  integer; 

no.james  :  array (1.. maxgamea]  of  integer; 

ecoresflle  :  flic  of  gameetete, 

xx, x,y, letter, lelterstep  :  integer; 

outflle  :  text; 

current  :  gamestata; 

no^acroea  :  integer; 

procedure  header(var  outflle  :  text); 
begin 

writelo(outflle,’PLAYER',’PLANES’:3t); 

writeln(outflle,’  - ':38); 

for  y  1  to  numberpictures  do 
no_planee(y]  0; 

for  y  1  to  maxgamea  do 
no_gamea|yj  0; 

end;  (*  of  Procedure  Header  *) 


procedure  planenamea(var  outflle  :  text); 


begin 

wriu(outfil*pt,'.’)i 

If  x  <  10  then  writefoutflle,’  ’); 

if  x  <  29  then  writefoutfile,’  (Top)  ’) 

■1m  if  (x  >  28)  sod  (x  <  57)  then  write(outfile,*  (Side)  ’) 

■1m  wriu(outflle,’  (Front)  ’); 

(•PLANE  NAMES  GO  HERE*) 
write(outfile4NFO_LlST{x].nftiaee(l]:15,’  ’:20); 
end; 

procedure  ebowconfldence(var  outflle  :  text); 
procedure  eboerraiinge  (var  outflle  :  text); 
procedure  abowpeople  (var  outflle  :  text); 
begin 

write(out&le,’  NAME  SS  #  DATE  ’:40); 

writein(tfutfile/Average  Confidence’:22, Percent  Correct’:I7); 
reeet(ecoreeflle  .name); 
letteretep  ;■  05; 
letter  04; 

XX  0; 

while  not  (eof(ecoreefile))  do 
begin 

current  :«-ecore*ftle‘; 
get(acoraafile); 
letur  :*•  letter  +  1; 
if  letur  >  90  then 
begin 

letter  06; 

letUraUp  letunUp  +  1; 
end;  (•  of  if  •) 
xx  xx  +  1 ; 

writefoutflle.chrOetUreUpKcbrOetur),’:',’  ',current.NAME:15, 
rurrent.SS;IS,curTent.daU:12); 
if  not  (no_planea[xx)  «■  0)  then 
wriu(outflle  .(eonf.total  (xx)  /no_planee|xx) ) :  1 2 : 1 ) 
eUe  wriu(outflle,'>  ’:12); 
if  not  (no_planee(xx]  —  0)  then 

wriUln(outaie,round(100*eorrect_toial[xx)/no_plnne»[xxj):l7,’%’) 
alee  wriUln(outfilt,’-  18); 
end;(*  of  while  *) 
cloM(ecoreaflle); 
wriuln(outfkle); 

end;  (•  of  Procedure  Showpeople  *) 
begin  (*  Procedure  8bowratinga  *) 
no_acroee  1; 
repeat 

wrMoutflle,’  ’:4); 

for  x  Do_icro*»  to  no_acroei  +  acroee  •  1  do 
if  x  <“  numberpictures  then 
wriutoutflle.xiO,’  ’); 
wriuln(outflle); 
write( outflle,'  ’:4); 

for  x  :■*  no_aeroee  to  no_acroee  +  acroee  •  1  do 
if  (x  <■■  numberpicturee)  and  (x  <  10)  then 


write(outfile)V:51,  ’) 
else  if  x  <  *■  numberpictures  then 
write{outfile,,"-’:5,,  ’); 
writeln(outfile); 
reset(scoresfile  ,n  &me ) ; 
letteratep  :«=  85; 
letter  :«»  64; 
xx  0; 

while  not  (eof(scoresfile))  do 
begin 

current  :«>acores6]e‘; 
get(scoresfile); 
letter  •  letter  +  1; 
xx  —  xx  +  1; 
if  letter  >  60  then 
begin 

letter  65; 

letterotep  :«*  letteratep  +  1; 
end;  (*  of  if  *) 

write(outfile,chr(letteratep),chr(letter)l'  ’); 
for  y  :•=  no_acroes  to  x  -  1  do 
if  y  <*=  numberpictures  then 

if  not  (current.latency[yj  «=  0)  then 
begin 

no_planes[xx]  :=  no_planes[xx]  +  1; 

no_games[y]  :«=  no_games[y]  +  1; 

tota)_conf(y]  ;*«  total_conf(y)  +  current .confidence[y]; 

conf_total[xx]  :=  conf_total[xx]  +  current. confideuce[y]; 

if  current.correct[y]  then 

begin 

total_correct[y]  :=  total_correct(y]  +  1; 
correct_total[xx]  :**  correct_total[xx]  +  1; 
write(outfile,’+’:3) 
end  {*  of  if  •) 
else  write(outfile,’-’:3); 
write(outfile,round(current.confidence|y)):3); 
end  (*  of  if  *) 
else  write(outlile,’  •  ’); 
writeln(outfile); 
end;  (*  of  while  •) 
close(scoresfile); 
writeln(outfile); 

for  x  :-=l  to  80  do  write(outfile,’-’); 
writeln(outfile); 

no_acroes  no_across  +  across; 
until  no_across  >«*=  numberpictures; 
writeln(outfile); 
showpeopl  e(ou  tfile ) ; 
end;  (*  of  Procedure  Showratings  *) 
procedure  showplanes(var  outfile  :  text); 
begin 

for  x  :=1  to  80  do  write(outfile,’*’); 
write  ln(ou  tfile); 

writelnjoutfile/PLANES:',’  ’:41, ’Average  Confidence’, ’%  Correct7’:14); 


for  x  :■»  1  to  numberpictures  do 
begin 

planename*(outfile); 

if  no_gnmes[x]  >  0  then  write(QUtfile,totaJ_conf(x]/no_gnmes[x]:ll:l) 
ebe  writefautfile,’-’  :11); 
if  no_£ames(x]  >  0  then 

write(ou  tfile, round(lOO*total_correct(x]/no_gaj&es[x}):10,'%’) 
ebe  writ«(ou  tfile ’  :20); 
writeln(ou  tfile); 
end;  (•  of  for  •) 

for  x  :«-*l  to  80  do  writeloutfile,’*’); 
write  ln(outfile); 

end;  (*  of  Procedure  Showplanes  •) 

begin  (•  Procedure  Sbowconfidence  *) 
for  x:*->  1  to  numberpictures  do 
begin 

total_correct[x]  :«■=  0; 
total_conf[x]  :=  0; 
end; 

for  x:*  1  to  tnaxg&mes  do 
begin 

conf_total[x]  0; 
correct_total[x]  :*=  0; 
end; 

write  ln(outfile), 

writeln(outfile, ’RESPONSE  CORRECTNESS  and’:48); 
writeln(outfile, ’CONFIDENCE  RATINGS’;45); 
writeln(outfile,’  +  >=  correct  ’:45); 
writeln(outfile,’  -  =»  wrong  ’:45); 

for  x  :*—l  to  80  do  write(outfile,’-’); 
writeln(outfile); 
nttV^ou  tfile); 
showratiugs(ou  tfile ) ; 

»Lowplanes(outfile); 

cloee(scoresfile); 

end;  (*  of  Procedure  Showconfidence  •) 

procedure  showlatency(var  ou tfile  :  text); 
procedure  showratinga(var  outfile  ;  text); 
begin 

nojacross  1; 
repeat 

writ^outfile,’  ’:4); 

for  x  :*»  no_acroes  to  no_aeroes  +  acroes  •  1  do 
if  x  numberpictures  then 
write(outfile,x:5,’  ’); 
writeln(outfile); 
write(outfi!e,’  ’:4); 

for  x  :■*  no_across  to  no_across  +  across  -  1  do 
if  (x  <  =  numberpictures)  and  (x  <  10)  then 
write(outfile,’-’:5,’  ’) 
ebe  if  x  <=  numberpictures  then 
write(outfile,’— ’:5t’  ’); 
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writeln(outfile); 
reaet(acoreefUe,name); 
letteretep  ©5; 
letter  64; 
xx  0; 

while  not  «of(icoreeflle))  do 
begin 

cnr  .nl  :«»eeore*flle'; 
f«i{Koreefilr); 
letter  letter  +  I; 
xx  xx  +  1; 
if  letter  >  80  then 
befit 

letter  :•>  65; 

letteretep  letteratep  +  1; 
t.id;  (•  of  if  •) 

write(outflle,ebr(letter»tep),chr(Se»  ter),’  ’); 
f/’r  >  :«■  no.ee roee  to  x  - 1  do 
i i  y  <  «■  numberpieturee  then 

if  not  (current. latency (y)  ■■  0)  then 
begin 

no_planee[xx]  no_planee['>Tc]  +  1; 
co_gamee[y]  :<■  no_gameajy]  +  1; 

V-ialJatly)  total  Jat[y]  +  current. latency[y]; 

Ul.tolalrfx;  lat_total(xx]  +  current.Utency[y); 
w  ite(ouchle,eurrent.latency[y):5,’  ’)i 
.  nd  (•  of  if  •) 
e  u  writefouttkle/  *  ’); 

*  ritclu(ou».flle); 
oi.d;  (•  of  while  •) 
cloeefeeoreefile); 
whtr»c(oi>tfl>e); 

for  x  ;*»i  to  50  do  write(outflle,’-’); 
wriuln(ouUll«); 

v.:-_acro*»  :»•  no„ac row  •+■  across; 
until  nojacroae  >■•  numberpicturee; 
write  in(outfiie); 

end,  (*  of  Procedure  Showratinge  •) 
procedure  ehowplanee(var  outfilr  :  text); 
begin 

for  x  ;«** '  '«■  SO  do  writ*>outflkt/-'}, 

wn  ln(out^ke); 

writeln(oulfile, ’PLANES:’.’  v4 1, ’Average  Latency'}; 

for  x  :■»  1  to  uumberpiaurea  do 

begin 

plane  o*iae*(outflle), 

if  not  (oojaia%e|x)  —  0)  then  write(ouvftlerround(K»ul  J»t(xj/no^(aia«ixS); 
eUe  wri'«(outflle,‘-’:8); 
writeln(outfiU); 
end;  (•  of  for  •) 

for  r  I  to  80  do  write(outflle,’-’); 
write  ln(outfl)e); 

tnd;  (*  of  Procedure  Showplanee  *) 
procedure  ehowpeople(var  outflle  ;  text); 
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write(outfile,’  NAME  SS  #  DATE  ’:40); 

writeln(outfile, ’Average  Latency’: 22); 

reset(acoresfile,name); 

letterstep  :«  65; 

letter  :■=  64; 

xx  P; 

while  not  (eof(Bcoresfile))  do 
begin 

current scoresfile*; 
get(scoresfile); 
letter  :«=  letter  +  1; 
if  letter  >  00  then 
begin 

letter  :«*  65; 

letterstep  letterstep  4-  1; 
end;  (•  of  f  •) 
xx  :■  «  +  1; 

write(outfile,chr()etter*tep),chr(letter),’:’,’  ’.current. NAME:  15, 
current. SS:12, current. date:l2); 
if  not  (no_planea[xxj  —  0)  then 
writeln(outfile,round(lat_total(xxj/no_plnnes[xx)):12,’  ’) 
elae  writeln(outfile,’>  ’:14); 
end;(»  of  while  •) 
close(scoresfile); 
write  ln(outfile); 

er'-  *of  Procedure  Showp-^  le  *) 

begin  (*  Procedui-  l.iowlaten.y  *) 
for  x  :«-«  1  to  maxga  jes  do  lat.totaljx]  :•»  0; 
writeln(outfile), 

writeln(outfile,’I  ‘  TENCIES  (in  millueconds)’:50); 
for  X  :—>l  to  80  do  write(outfile,’-’); 
writeln(outfile); 
header(outfile); 

•how  rati  ng*{ou  tfi  le ) ; 
showpeople(outfile); 
writeln(outflle); 

•bow  plan  es(ou  tfile ) ; 

wet(«coresfile  .name ) ; 
close  (scorerfle, purge';  (•  .purge  •) 
end  f*  of  Procedure  Showlatency  •) 

“•rocedurc  FROMDISK; 
var  H  :  integer, 
begin 

re  »et(  in  fodir  ,1^5  ame ) , 

FOR  1<  .«•  1  TO  MAXI ND EX  DO  BEGIN 
lnfoJLiat|H  {••  ll_L*t(Hj  ••}  iofodir"; 
if  not  EOF(infodu-)  then  get(infodir), 
end; 

close(infodlr). 


begin  (*  MAIN  •) 
for  x  1  to  numberjvicturee  do 
begin 

U>til_torr«ct|x]  0; 

tot%l_eonf(x]  0; 

toUl_let[x]  0; 

end;  (•  of  f or  •) 

FROMDISK* 

rewrite(outfile, ’CONFIDENCE. TEXT’); 

•howeonfidenee(outfile); 

cloee(outfile,lock); 

rewrite{outfile,’LATENCY.TEXT’); 
•howUtency(outfile); 
cloee(outfile,lock); 
rewrite(acoree&le,nnme); 
cloee(ecoreafUe,loek); 
end.  (•  MAIN  •) 


Program  Driver; 

CONST  numberpie  lures  85;  (*  total  #  of  pictures  available. 

The  number  of  planes  actually 
used  in  a  game  is  unimportant.  •) 

name  —  '#5:G  AMES.  DATA';  (*  Disk  file  of  played  game  stats 

TYPE  nametype  »  etring[l5]; 
sstype  *  stringfll]; 
scale  «—  0.100; 

gam  estate  —  record 

name  :nametype; 

SS  :  sstype;  (•  The  player's  name,  and  *) 

date  :  nametype;  (*  the  date  of  the  game.  •) 

latency  :  packed  array (l..numberpictures)  of  integer;  (•  Statist 

confidence  :  packed  array[l..numberpictures)  of  scale;  (•  for  eve 
correct  :  packed  array(l..numberpietuns]  of  boolean;  (•  plane  f 

(*  each  game.  •) 


end;  (*  gam  estate  •) 

VAR  current  :  file  of  gam  estate, 


begin  (*  MAIN  •) 
rewritc(current,name); 
cloee(current,lock); 
end.  (•  MAIN  *) 


PROGRAM  MAKEDIR2; 

USES  MENUS; 

CONST  LNAME  -  ’#S:NEWNAMES’; 

MAXINDEX  —  100; 

MAXNAMES  -  3; 
menulX  “  4; 
menulY  —  6; 

■1  •—  'Name  1'; 

•2  —  ’Name  2’; 

•3  —  Totofile  Dame:’; 

•4  —  Tullacreen  [T/F]’; 

*5  —  Top  Third  |T/F]’; 
eO  —  'Mid  Third  (T/F]’; 
s7  —  ’Bot  Third  [T/F]’; 

MAXDIR  -  77;  (*MAX  NUMBER  OF  ENTRIES  IN  A  DIRECTORY*) 
VIDLENG  «=  7;  (‘NUMBER  OF  CHARS  IN  A  VOLUME  ID*) 

TIDLENG  —  15;  (* NUMBER  OF  CHARS  IN  TITLE  ID*) 

FBLKSIZE  —  512;  (‘STANDARD  DISK  BLOCK  LENGTH*) 

DIRBLK  -  2;  (*DISK  ADDR  OF  DIRECTORY*) 

NAME_LEN  =  23;  (Length  of  CONCAT(VIDLENG,’:’,TIDLENG)} 

TYPE 

DATEREC  —  PACKED  RECORD 

MONTH:  0..12;  (*0  IMPLIES  DATE  NOT  MEANINGFUL 

DAY:  0..31;  (*DAY  OF  MONTH*) 

YEAR:  0..100  (*100  IS  TEMP  DISK  FLAG*) 

END  (‘DATEREC*)  ; 

(•VOLUME  TABLES*) 

VID  -  STRING  [VIDLENG]; 

(•DISK  DIRECTORIES*) 

DIRRANGE  -  0.  .MAXDIR; 

TID  -  STRING  [TIDLENG]; 

FILEKIND  -  (UNTYPEDFILEXDSKFILE, CODEFILE, TEXTFILE, 

INFOFILE,  DATAFILE,  GRAFFILE.FOTOFILE, SECURED®); 

DIRENTRY  -  PACKED  RECORD 

DFIRSTBLK:  INTEGER;  ('FIRST  PHYSICAL  DISK  ADDR*) 
DLA3TBLK:  INTEGER;  (-POINTS  AT  BLOCK  FOLLOWING*) 

CASE  DFKIND:  FILEKIND  OF 
^EOURKDIR 

UNTYPEDFILE:  (‘ONLY  IN  DIR[0)...  VOLUME  INFO*) 

(FILLERl  :  0..2048;  (for  downward  compatibility ,13  biu) 

DVID:  VID;  (*NAME  OF  DISK  VOLUME*) 

DEOVBLK:  INTEGER;  (*LASTBLK  OF  VOLUME*) 
DNUMFILES:  DIRRANGE;  (*NUM  FILES  IN  DDt*) 

DLOADTIME  INTEGER;  (*TIME  OF  LAST  ACCESS*) 
DLASTBOOT:  DATEREC);  (‘MOST  RECENT  DATE  SCTTINO*) 


XDSKFUE  .CODEFILE  ,TEXTF1LE,INF0FILE , 

DATAFILE, GRAFFILEFOTOFILE: 

(F1LLER2  :  0..1024;  {for  downward  compatibility} 

STATUS  :  BOOLEAN;  {for  FILER  wildcard*} 

DTID:  T1D;  (‘TITLE  OF  FILE*) 

DLAS TBYTE:  l.FBLKSIZE;  (*NUM  BYTES  IN  LAST  BLOCK*) 
DACCESS:  DATEREC)  (*LAST  MODIFICATION  DATE*) 
END  (*DIRENTRY*) ; 


Directory  -  ARRAY(DERRANGE]  OF  DIRENTRY; 

STR15  -  STRING(15); 

INFOJIEC  -  PACKED  RECORD 

NAMES:  PACKED  ARRAY(1 .  MAXNAMES)  OF  STR15; 
BLOCK  :  INTEGER; 

FULLSCREEN  :  BOOLEAN; 

TOPTHIRD  :  BOOLEAN; 

MIDTHIRD  :  BOOLEAN; 

BOTTHIRD  :  BOOLEAN; 

END; 

ILIST  -  ARRAY[  1 .  .MAXINDEX]  OF  INFOJIEC, 

VAR  INFODIR  :  FILE  OF  INFOJIEC; 

INFOJLIST  :  ILIST; 

CH  :  CHAR; 

I,J  :  integer; 

noloop, loopit .done  :  boolean; 

choice  :  integer; 

fin, an*, response  :  char; 

MENUl  :  MENURECORD;  {  from  library  program  MENUS  } 
dir  :  Directory; 

LISTFILE  :  TEXT;  {  used  in  QUICKLIST  to  output  dir  to  textfile  } 


( . * . . . ) 

procedure  FROMDlSK(VAR  ILL  1ST  :  ILIST); 

var  H  :  integer; 

begin 

reset(infodir,IJVAME); 

H:-  1; 

while  not  EOF(infodir)  do  begin 
DJiat(H]  infodir*; 

H  :■»  H  -f  1; 
get(infodir); 
end; 

cloee(infodir); 

end; 


procedure  TOODISK(VAR  ILL  1ST  :  ILIST); 
var  Z  :  Integer; 


rewrite{infodir,LNAME); 
for  Z  l  to  MAXINDEX  do 
begin 

infodir*  Il_Iist|Z]; 
put(infodir); 
end; 

cloee(  infodir, lock); 
end; 


( 


PROCEDURE  CLEARSPACE(  D  :  INTEGER); 
VAR  E :  INTEGER; 

BEGIN 

FOR  E  1  TO  D  DO 
WRITE(CHR(32)); 

FOR  E  1  TO  D  DO 
WRITER  CHR(8)) 

END; 

procedure  ClearLine; 
begin 
write(’ 

for  i  1  to  67  do  write(chr(8)); 
end; 


procedure  Boolwrite(A:boolean); 
begin 

if  A— TRUE  then  write(’TRUE’) 
el»e  write(’FALSE'); 

end; 


procedure  Boolread(VAR  A:boolean); 
var  ch  :  char; 
begin 
read(ch); 

if  ((cb-T’)  or  (ch-V))  then  A:— TRUE 
elac  A:*— FALSE; 


end; 


procedure  ShowValue(p:integer); 
begin 

with  Info_JUt(J]  do  begin 
if  p"*l  then  begin 
ClearLine; 

gotoxy(roenulX  +  89,  menulY  +  P  +  1); 
ClearSpace(I6); 
write(nnmee|l]); 
end; 


if  p—2  then  begin 
ClearLine; 

gotoxy(menulX  +  26,  menulY  +  P  +  1); 

ClearSpaci(l5); 

write(names(2j); 

end; 

if  p-^3  then  begin 
ClearLine; 

gotoxy(menulX  +  26,  menulY  +  P  +  1); 
ClearSpace(l5); 
write(nainea[Sj); 
end; 

if  p«M  then  begin 
ClearLine; 

goto*y(menulX  +  26,  menulY  +  P  +  1); 
ClearSpace(5); 
boolwrite(fulla<reen); 
end; 

if  p«5  then  begin 
ClearLine; 

gotoxy(menulX  +  26,  menulY  +  p  +  1); 
ClearSpace(5); 
boolwrite(topthird); 
end; 

if  p—6  then  begin 
ClearLine; 

gotoxy(menulX  +  26,  menulY  +  P  +  1); 
ClearSpace(S); 
boolwrite(midihird); 
end; 

if  p—7  then  begin 
ClearLine; 

gotoxy(menulX  +  28,  menulY  +  P  +  1); 
ClearSpace(5); 
boolwrite(batthird); 
end 

end  {with} 
end; 


procedure  MakeMenu; 
var  title, convertatring; 
begin 

{  *ti{J, convert);  } 

{ title  cone  at( 'INDEX  ’.convert);  } 

M#nuNew(menul,  menulX,  menulY,  20,  7, INDEX  NUMBER'); 
Mcnuln*#rt{inenul,  el,  menul.len+l); 

Menuln*ert(nienul,  «2,  menul.len+l); 

M«nuInMrt(menul,  *9,  menul.len+l); 

Menulnacrt{menul,  *4,  menul.len+l); 

Menulneert(menul,  «6,  menul.len+l); 

Menuln«ert(menul,  tS,  menul.len+l); 

MenuIn*ert{iMnul,  »7,  menul.len+l); 
end; 
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procedure  DoMenu(  TheMenu  :  MenuRecord;  VAR  choice  :  integer); 

vir  lest :  cher; 

begin 

gotoxy(0,  2); 

writeln(’U*e  the  emm  keys  to  move  emong  the  choices,  ’); 
writeln(’type  *S*  to  select  which  item  to  chenge.  ’); 
MenuDisplsy(TheMenu); 
lest  :■»  MenuUserSel(TheMenu); 
choice  The’  tenu.curltem; 
end; 


procedure  NewOne; 
ver  iter  :  integer; 

response, bool  :  cher; 
done  :  boolean; 

procedure  NemeCese(VAR  nameatrlS;  statring;  c:integer); 
begin 

gotaxy(0,menulY  4-  14); 

CleerLine; 

write(st,’  is  currently  ’); 
writeln("  ’.name,’*  ’); 

CleerLine; 

write  (’Enter  the  new  >t,’:  — >  ’); 

reset(input); 

reedln(name); 

(*UpperCase(name);*)  {  from  SceneUnl  } 

WRITELN; 

CLEARLINE, 

ShowVelue(c); 
gotoxy(0,menulY  •+•  14); 

CleerLine; 

gotoxy(0,menulY  +  15); 

CleerLine; 

end; 

procedure  BoolCese(c: integer); 

ver  i  :  integer; 

begin 

with  lnfoJist[J]  do  begin 
fullscreen  :<■  false; 
topthird  false; 

midthird  :«•  false; 
botthird  false; 

if  c  4  then  fullscreen  true 
else  if  e  5  then  topthird  :»  true 
else  if  c  ■>  6  then  midthird  true 
else  if  «  —  7  then  botthird  true; 
for  i  4  to  7  do  ShowVelue(i); 


gotoxy(0,menulY  +  14); 

writ«ln(Tor  boolean  fields,  selection  automatically  sets’); 
write(’  selected  field  TRUE,  other  fields  FALSE.  Hit  <RET>.’); 
read  In; 

gotoxy(0,menulY  +  14); 

ClearLine; 

gotoxy(0,menulY  >1-  15); 

ClearLine; 
end;  {  with  } 
end; 


begin  {  NewOne  } 

MakeMenu; 

PAGE(OUTPUT); 

gotoxy(20,6);  {  Writes  index  number  to  screen  } 

ClearSpace(3); 

write(J); 

for  iter  :—  1  to  7  do  ShowValue(iter); 
done  false; 
while  (not  done)  do 
begin 

MenuReset(menul); 

DoMenu(menul,  choice); 

gotoxy(20,0);  {  Writes  index  number  to  screen  ) 

ClearSp  v:e(3); 
write(J); 
i'  choice—1. 

then  NameCase(InfoJist[J]  .names[l] ,sl  .choice) 
elt  v-  if  choice*-? 

then  NameCase(lnfo_list[J].nanies[2],s2,choice) 
else  if  choice— 3 

then  NameCase(lnfo Jist| J]  .names[3)  ,s3  .choice) 
else  BoolCase(choice); 
gotoxy(menuLX  +  36,  menulY  +  8); 
write(’  Change  more  va’  jest  (Y/Nj  ’); 
read(  key  board  .response) ; 

if  (response  in  pN’,  ’n’])  then  done:— true  else  done:— false; 
end  (while) 
end; 


procedure  procA, 
var  loopit  :  boolean; 

fin  :  char; 
begin 

repeat 

repeat 

loopit  :—  false; 
gotoxy(l,22); 

write(’Edit  Index  Number:  — *>  ’); 

read(J);  (  J  GLOBAL  TO  MAKEDIR  } 

if  (  F<  1)  OR  (J>MAXINDEX)  then  begin 


loopit:  —true; 
gotacy(l.M); 

writeln(  Value  out  of  ru|«.  Type  <RE1  >  to  continue'); 
readln; 
end; 

got6xy(0,«); 

CL  EARLINE; 
until  not  loopit; 

NewOne; 

menudiepUy(menul); 

fotoxy(l,»); 

writeCEdit  Another?  [Y/N]  — >  ’); 

read(fin); 

gotoxy(0,W); 

CLEARLINE; 
until  (fin  in  ('N',  ’n’J); 
end;  {  procA  } 


procedure  procB; 
var  lower, bigherinteger; 

again  :  boolean; 
begin 
repeat 

again  :—  falte; 

gotoxy(0,0); 

ClearLine; 

writefEnter  lower  in'*  x  bound  apace,  upper  index  bound:  ->  ’); 
read(lower, higher); 

if  (lower<l)  or  (lower;  MAXINDEX)  or  (bigherO)  or  (higher >MAXINDEX) 
then  again:— true 
elec 

if  (lower > higher)  then  again:— true; 
until  not  again; 

for  J:—  lower  to  higher  do  {  J  is  global  to  MAKEDIR  } 
begin 
NewOne; 

menudispiay(menu  1 ); 
end; 

end;  (  procB  ) 

. . . 

PROCEDURE  CHANGER; 

VAR  i :  integer; 

FUNCTION  tadnumfVAR  alias  :  string) :  INTEGER; 

VAR  n  :  integer; 

found, done  :  boolean; 


IF  dir(n].dtid-alias  THEN  BEGIN 
flodnum  dir(n).dfirstblk; 
done  TRUE; 
found  TRUE; 

END 

•1m  n  n+1; 

UNTIL  ((n~MAXDIR+  1)  or  dost); 

IF  found—FALSE 

THEN  WRITELN (  'Cm  not  find  alias,'  on  disk  in  upper  drive  (#5)  ’); 
END; 

BEGIN  {CHANGER} 

PAOE(OUTPUT); 

WRITELN('CONVERTING  ...  ’); 

UNITREAD<6,dir(SI2EOF(dir)DIRBLK); 

FOR  I:-  1  TO  MAXINDEX  DO 

INFOJLIST[Ij .block  Undnum(INFOJLlST|I].names(S)); 

TOODI8K(INFOJLI8T); 

WRITELN (DIRECTORY  CONVERTED. 

END; 

PROCEDURE  INITDIR; 
begin 

for  J  1  to  MAXINDEX  do  begin 
bfojist  J  .names  1  ’nonel23'; 

bfojist  J  .nsmes  2  'oonel23'; 

lnfojist  J  .names  3  TLAG8.FOTO’: 

lnfojist  J  .block  0; 

lnfojist  J  .fullscreen  TRUE; 

bfojist  J  topthird  :■»  FALSE; 
lnfojist  J  .midthird  FALSE; 

bfojist  JJ.botthird  FALSE; 

end; 

bfojist  00  .nsm«s|8l  ’EAGLEl.FOTO';  { initialising  system  records  } 
bfojist  01  .names[3]  'EAGLE2.FOTO'; 

bfojist  02  .names  1 

bfojist  02  .names  2  :•> ’ADMl’; 

bfojist  02  .names  3  'EX3.FOTO'; 

bfoji*  03  .names  1  ”; 

bfojist  03  .names  2  'SPACE  SHUTTLE'; 

bfojist  03  .names  3  'EX4.FOTO'; 

bfojist  04  .names  1 
bfojist  04  .names  2  'XFV12'; 

bfojist  04  .names  I  .-  ’EXl.FOrO’, 
bfojist  04  .fullscreen  false; 
bfojist  04  .topthird  true; 

bfojist  06  .names  1 

bfojist  Oft  .names  2  *X20’; 

bfojist  OS  .names  8  T5X5.FOTO'; 


Infojist  96  jiunti  l]  ’FIGHTING  FALCON’; 

Infojist  96  .name#  2]  T16’; 

Info Jiat  96  .names  3]  :-=  ’EDCl.l  ' 

Infojist  96  .fullscreen  :«■*  false; 

Info_liat  96  .midthird  :«*  true; 

Info_list(97].names|l]  :*«  ”;  _ 

Info Jist  [C7]  -names[2  j  ’SPACE  SHUTTLE’; 

Info Jist[97  j .names[3]  ’EX2.FOTO’; 

Info_Iist[98] names[3]  'INI.FOTO’; 
lnfoJist[99]  namesjsj  TN2.FOTO’; 

END; 

PROCEDURE  EDITDIR; 
var  ans  :  char; 

Begin 

Menulnit; 

MenuVars" .SelChars  :=  MenuVars '.SelChars  +  [’S’,  ’s’); 

MenuVars'  .EscChars  :*=  MenuVars*  .EacChars  +  {’S’,  ’s’); 

PAGE(OUTPUT), 

REPEAT 

gotoxy(0,0); 

writeCEdit  OLD  ’NEWNAMES”  Directory,  or  make  NEW  ’NEWNAMES’  Directory?  [O/N 
read(keyboard,ans); 

UNTIL  (ans  in  (’o’,  ’O’,  ’n’,  ’N’]); 
if  (ans  in  [’o’,  ’O’])  then 
FROMDISK(InfoJiat) 
else  INITDIR; 

PAGE(OUTPUT), 

REPEAT 

WRITELN(’EDITING  OPTIONS:  ’); 

WR1TELN(’  1  :  INDEX  CHOICE  ’); 

WRITELN(’  2  :  AUTO-INDEX  ’); 

WRITELN; 

WRITE(’Type  <1>  or  <2>  —>  ’); 

READ(ans); 

UNTIL  (ans  in  [T,  ’2’]); 

PAGE(OUTPUT); 

IF  ans  «•  ’2’  then  procB 
ELSE  procA; 

CHANGER, 

End;  {  MakeDir  } 


procedure  LISTER; 

VAR  i  :  integer; 
ans.cb  :  char; 

procedure  Fiieboolwrite(A:booiean); 

begin  _ 

if  A-TRUE  then  wriulnJLISTFILE.’TRUE’) 
else  writeln(LISTFILE,TALSE’); 


PAGE(OUTPUT); 

WRITELNfQUlCKLlST’);  WRJTELN; 

FROMDISK(INFOJ,IST); 

FOR  i  1  to  MAXINDEX  do  begin 
With  INFO_LIST(i]  do  begin 
Writeln(’lndex  #:  ’4); 

Write  ln( 'NAMES  1]:  \  names|l]); 

Writeln(’NAMES  2):  \  names[2)); 

Writeln(’NAMES  3]:  namesjsj); 

Writeln( ’BLOCK:  block); 

Wrii«(a4,*  :  '):  booh»rite(fulUcreen);  writein; 

Writ^eS,’  :  ’);  boolwrite(topthird);  writein; 

Write(s6,’  :  ’);  boolwrite(midthird);  writein; 

Write(a7,'  :  ’);  boolwrite(botthird);  writein; 

Raadln; 

End;  {  with  } 

End;  {  for  } 

Page(output); 

writeln('Do  you  want  a  listing  sent  to  QUICKL  1ST. TEXT  on  the  bottom  diskT’); 

read(key  board, ans); 

if  (ans  in  [’y\rY’])  then  begin 

REWRITE(LISTFILE/QC1CKLIST.TEXT’);  {  QU1CKLIST.TEXT  is  output  file  } 
FOR  i  :*■»  1  to  MAXINDEX  do  begin 
With  INFO_LIST[i]  do  begb 
Writeln(LISTFILE, ’Index  #:  ’,i); 

WritelntLlSTFILE.’NAMESll]:  names  I]); 

Writeln(LISTFILE,,NAMES[2j:  names  2  ); 

W riteb(LISTFILE,  ’NAMES  [3] :  ’,  names  3  ); 

W riteb(LISTFILE, *BLOCK :  ’.block); 

Write(LISTFILE,s4I’  :  ’);  Fileboolwrite(fuUacreen); 

Write(LISTFILEIs5,’  :  ’);  Fileboolwrite(topthird); 

Write(LISTFILE,s6l’  :  ’);  Fileboolwrite(midthird); 

W rite(LISTFILE ,a7 , ’  :  ');  Fileboolwrite(botthird); 

W  ri  teb(LlSTFILE) ; 

End;  {  with  } 

End;  {  for  } 

CLOSE(LISTFILE1LOCK); 
end;  {  if  } 

END; 

PROCEDURE  BUGS; 

TYPE  SCORES  JlEC  -  RECORD 

GAMENAME  :  STRINGjlS); 

SCORE  :  INTEGER; 

END; 

VAR  HILIST  :  ARRAY(1. .10]  OF  SCORES _REC; 

HISCOREFILE  :  FILE  OF  SCO  RES  JlEC; 

I,J,H  :  INTEGER; 

CH  :  CHAR; 

TEMPNAME  :  STRING|l5j; 

TEMPSCORE  :  INTEGER; 

BEGIN 

PAGEfOUTPUT); 


WRITELN(’TH1S  PROGRAM  CREATES  A  FILE  CALLED  HBCOREDATA*); 
WRITELNC  WHICH  IS  PUT  ON  THE  FOTOFILE  DISK  IN  THE  UPPER  DRIVE  *); 
WRITELN; 

WRITELNC  ENTER  THE  TOP  TEN  SCORES  WITH  CORRESPONDING  NAMES  ’); 
WRITELN; 

FOR  H:-l  TO  10  DO  BEGIN 
WRITELN( ’NUMBER  ’.H); 

WRITELN(  ENTER  NAME  ->  ’);  READLN(HIL1ST[H)  G  AMENAME); 
WRITELN(ENTER  SCORE  ->  ’);  READLN(HILIST[H|  SCORE); 

WRITELN; 

END; 

FOR  J  9  DOWNTO  1  DO  BEGIN 
FOR  I 1  TO  J  DC  BEGIN 
IF  HILIST[I)  SCORE  <  HILIST[I+1]. SCORE  THEN 
BEGIN 

TEMPNAME  -  HILISTjl]  G  AMENAME; 

TEMPSCORE  HIL1ST[I).SC0RE; 

HIL1ST[I]  GAMENAME  HILIST;i+l].G  AMENAME; 

HILIST[I]  SCORE  :=  HILIST[I-t-l].SCORE; 

HILIST[I+l).GAMENAME  TEMPNAME; 

HILISTlI+lj. SCORE  TEMPSCORE; 

END; 

END; 

END; 

REWRITE(HISCOREFILE,’#5:HlSCORE.DATA’); 

FOR  H«  1  TO  10  DO  BEGIN 
HISCO REFILE-  HILIST[H]; 

PUT(HISCOREFILE); 

END; 

CLOSE(HISCOREFILE(LOCK); 

END; 


( . . . .  MAIN  . . •••••••*»•••) 

BEGIN 

NOLOOP  FALSE; 

REPEAT 

PAGE(OUTPUT); 

WRITELN(’ . . . .  MAKEGAME  PROGRAM  *•*••••••••• 

REPEAT 

WRITELN; 

WRITELN(’NOTE:  Be  eure  disk  with  gsme  FOTOFILES  is  in  upper  disk  drive.  ’) 
WRITELN; 

WRITELN(*MAKEGAME  OPTIONS:  ’); 

WRITELNC  1  :  EDIT  DIRECTORY  ’); 

WRITELN (’  2  .  CONVERT  DIRECTORY  *); 

WRITELNC  3  :  QUICKLIST  *); 

WRITELNC  4  :  MAKE  H1SCORES  FILE  ’); 

WRITELNC  5  :  QUIT’); 

WRITELN; 

WRITE(’Typ«  <1>  <2>  <3>  <4>  or  <5>  — >  ’); 

READ(keybo&rd,ch); 

UNTIL  (eh  in  |T,’2’.’3’,’4’r’6’)); 
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